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Campo minado 


En este juego debes recorrer un amplio laberinto y recoger huevos de 
oro, a la vez que evitas chocar con las minas que han sembrado en el labe- 
rinto. Además, hay una persistente criatura con intenciones muy ofensi- 
vas, que va colocando minas por doquier. Un encuentro directo con este 
personaje equivale a perder la vida inmediatamente. Por suerte, en el labe- 
rinto también puedes encontrar unas hachas, que podrás recoger. Cuando 
hayas cogido una, estarás en condiciones de matar al monstruo de las mi- 
nas o, si lo prefieres, atravesar una vez las paredes del laberinto. Si quieres 
volver a hacerlo, te hará falta otra hacha. 
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Caída 


Este es un juego para dos jugadores. Cada uno debe guiar un pequeño 
muñeco a través de un laberinto vertical, de modo que pueda pasar por 
el hueco situado al final. Para conseguirlo, cada jugador puede mover las 
filas horizontales del laberinto, cambiando así la estructura de éste y con- 
siguiendo así que los muñecos caigan y bajen de nivel hasta llegar al final. 
El truco está en alterar la configuración del laberinto de modo que sea 
posible llegar abajo evitando, a la vez, que el contrincante consiga lo con- 
trario. 
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6¡AT yq1.27:"D" 
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3030 RETURN 
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N PRINT INK fF;AT f+14,9;"B" 

9555 BEEP OB FR 2ea 

39560 NEXT 9: NEXT f 

39570 FOR f=1 TO 17: PORKE 23692,2 

55: PRINT AT_21,31;* ": FOR 3=2 

9 To 30: BEEP .005,.3: NEXT 3: NE 
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2659 RETURN 


Tiro de cuerda 


Para dos jugadores, que representan sendos equipos de tres hombres ca- 
da uno, tirando de una cuerda a ambos lados de un barranco. Hay un pe- 
queño ovni volando por la parte superior de la pantalla. Desde él, cada 
jugador debe intentar lanzar un paracaidista, calculando que caiga sobre 
el objetivo que aparece aleatoriamente por la parte inferior. Cada vez que 
un jugador lo consigue, el equipo contrario será acercado un poco más 
al borde del barranco. Si un hombre cae, su equipo se verá debilitado. Ga- 
na el juego quien consiga tirar a todo el equipo contrario al barranco. 
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A! 
PR IAROT 2 con “L' isobre 


3035 PRINT "Cuando UN jugador a 
cierte el ob-j¡etivo,su equipo ti 
rara mas fuerte de la cuerda 
Y de este modo acercara al eq 
vipo contra- ri 
390365 PRINT “"Si algun miem 
un equipo cae al barr 
e Ultimo que-dara debili 
modo que le sera mas difi 
ganar." 
NT_INUERSE 


L 

Hadid IF INRKEYA<>"" 

ia IF INKEYS%="" THEN 60 TO 904 
9047 RANDOMIZE : L3 : RETURN 
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Carrera de caballos 


Típico juego de carreras con apuestas para cuantos quieran participar. 
Seis caballos corren de un lado a otro de la pantalla. Al comenzar el juego 
puedes elegir cuántas carreras quieres que haya. Y antes de cada carrera 
son mostradas las formas de apostar, junto con las proporciones que co- 
rresponden a cada caballo. Estas reflejan con considerable exactitud el po- 
tencial de cada competidor. 

Al principio, cada apostante dispone de 200 dólares y puede apostar en 
cada carrera por el caballo que prefiera. El ganador será quien tenga ma- 
yor cantidad de dinero al finalizar la serie de carreras. 

Si quieres, cada vez que un jugador se quede sin dinero le serán adjudi- 
cados 50 dólares adicionales o, mala suerte, quedará eliminado. 
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AH00 
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Ú 


1 RANDOMIZE : BORDER 7: PRP 
: INK U: CL5 : 60 35UB ?0U00: 


2 INPUT "Cuantas carreras 
haya esta vez 7? " 


“Cuantos jugadores 


: FOR €=1 TO a 
=200 


NEXT 

GO sub 900u 

CLS : GO _ SUB 1939 

FOR cz=2 TO 12 STEP 2 
PRINT INR c+2¿AT C,0,c/2;" 


PRINT AT c-1,2;'"N' 

NEXT c 

PLOT_251,170: DRAUW 0,-102 
"WM: PRINT AT 


A A 
ET aga "META": FOR cami TO 4 
y AT aa re 31 alo): NEXT c 
OR Ca183 67 STEP -18: P 
0: NEXT € 


AT_14,0;"P 

PRINT_AT 
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S PRINT INK CIAT C+2,x (c)-1; 
1008 IF x(c)231 THEN _LET gexl 
1909 BEEP .03,-20: BEEP .W3,-50 
115 NEXT c 
1020 IF ge:1 THEN 60 TO 1058 
1040 560 TO 1002 
1059 DIM hi6): LET many=0: FOR c 
=1 TO GB 
1062 IF _x(ci=31 TMEN LET manyama 
n 1: LET himany)u=c 
1053 NEXT c 
1054 IF nany=1 THEN LET vinner=h 
( : G0 TO 1899 
1055 PRINT RT 29,0;' una foto 

as Llegada a e A a de Los 


03: 
¿PRINT AT 21,25;h(1);" y ";h 


IF manye3 THEN PRINT ¡h(3): 
IF many=4 THEN PRINT 30 6"; 


FOR cz1 TO 300 

NEXT c 

LET ermINT (RND*4) +1 ' 

LET vinnerahier) 

IF vinnered TMEN G0 TO 1967 

a AND<.33 THEN LET g9$="una 
: G0 TO 1079 

14 RND<.4 THEN LET 9g="poqu 

nO" 60 TO 1079 

135) LET 9%$='un el 

1979 PRINT AT 20,0 
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2 00 UREA 0Ad> 
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p1r)=0 TREN LET rar+1l: 6 
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CE H 1 A 
y INT *** 
A 
ABA 


A PRINT "¡Carrera de C 
LLos)" 


7830 PRINT **"Un JUEGO, de azar op 
ara la fami liaentera . "BP, 
Stanley 


7040 PÁUSE 300: RETURN 

3000 CL3 : PRINT AT 5, 0;"Lo sent 
imos mucho !! Jugador rio te h 
as quedado sin dinero," 

3005 PRINT : PRINT "Ya no puedes 
apostar mas." 

30180 PRINT *'" (De todas formas, $ 
i quieres ha-cer trampas, pulsand 
0 'C*” tendras50 $ mas.)' 

3920 PRINT "Y si no, pulsa 'X'” Pp 
ara elimi-  narte de esta partid 


3030 IF INKEYS="x" OR INREYS="X 


50 TO 8u5Y 
OR INKEYS="0C 


50 TO 5050 
35us0 dos : EN Po 1130 
9000 FOR c=U5SR "a" TO USR “a "+7: 
READ yv; PORKE c,v; NEXT c 
39001 DATA 186,BIN 00811911,13,254 
¿62,BIN Y41100110,BIN 10101010,34 
399399 RETURN 


Torneo de boxeo 


Aunque está mal que lo digamos nosotros, este programa está cerca de 
ser una obra maestra. Vamos a ser sinceros: ya sabemos que nunca subirás 
a un ring, pero... en las horas que pasas frente al televisor introduciendo 
programas se acumulan ganas de moverse, sube la adrenalina y aumenta 
la agresividad. Esta es tu oportunidad de desahogarte, participando en un 
campeonato de boxeo sin siquiera moverte de tu sillón. 

El programa ofrece una visión desde arriba del ring y te da ocasión de 
combatir con un oponente de tu elección a cuatro asaltos. Sólo obtendrás 
puntos si consigues dar en la cabeza del rival. Es posible un KO, pero ne- 
cesitarás muchas habilidad. 
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e+l; : 
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LET 31=3 
3542 IF_ ATT ( 50 THEN IF RT 
E 113,2 ZN GO 5UB 29550: 
AT Yui+f,xl, 
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20 


PRINT AT 21,03" 
“: GD 


38545 BEEP .1,-18: NEXT i 

3000 RESTORE 3010: LET fz0: LET 
255: FOR 85 =USR "a" TO USR "1" + 

RERD x: LN E PE NEXT y 
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NT AT 4,D0;cs;AT 4, 
NT_AT 6, a; INK 2;" 
¿ATOBS, 26; "PUNTOS"; 
O "RONDA" AT 15,25;" 


SOMA Hi ROA e 00 A- ddd0A 


aan 


-MmMa 


DIDA <q 


THEN FOR 0=25 TO 
2: NEXT 0: FOR 
o FOR 0=35 TO 2 
L:: DOS, 0 
530 PRINT AT yui,jxl; ; 
Aj ] ¡AT yi+2,x1," “Af Yi-1,x1 
10 LET yi=Yyl+4: LET xl=x1l+x: N 
e: NEXT Tf j 
Sla RETURN 


Motocross 


Este juego consta de dos partes. En la primera la moto corre de izquier- 
da a derecha por la pantalla, pasando por varios niveles hasta llegar al 
más bajo, mientras va saltando los obstáculos que encuentra en su cami- 
no. En la segunda parte, la moto tiene que saltar por encima de unos auto- 
buses colocados en batería y debe caer el otro lado sin perder el control. 
Después de cada salto exitoso debes repetir la hazaña, pero con un auto- 
bús más. 
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1 BORDER 0: PAPER 0: INR 7: C 


S LET hselie4: LET vrad 
10 GO 5UB 3088 
13 60_5UB 9100 

pra 
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a, xd: LET Y 
=4+5: ME JE THEN” S0 TO 2080 
<50 14 SCREENS (Y,x+1)2"" THEN 
5U8_1908 
9 IF IN 491508247 THEN G0 TO 
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LET 5=1 
50 TO 3u 
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'T XD "RU: LET xzx+2: RETU 


11x (55536%+PEEK 235674+25 
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ná THEN PRINT INK 4'"E 
tiempo conseguido !!'" 


Hm 


23H 00275 
m 


OO 7D 
¿EA yo 


“BOPV DN 
G*U6 ++ ez : 


pa 


m-- 


ZO Vir D 
D Mpybc. 


65086 


1, P 
RÑDA2 +8>- 
NT INR IES 


cer bl LET x20: LET 5:=u=20 
RETURN 
LET busesz=5: CLS 
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 LET cec+icr147)1-(3 AND cx 
NEXT x 
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6 STEP -5: FOR 
PRINT INK S3;PAT f,9;" 
: NEXT f 
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: PRINT INK Y BR 
f: PRINT BRIGH 
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E 9010: FOR frEUSR "a" 
READ 39: POKE f,9: 


32,62,50,254,152,90,23 
2,119,82,92,124,242,23 
55.231,90,25,127,76,12 
88,232,79,52,55,74,238 
32,112,24 
1,63, 127 555 
126,56,125, 
: 5,255,255,25 
9,254,255,25 
43,255 
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--DO- 
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3iste en dos 


RINT * INK 5,'"Para 
" debes de saltarpulsando 
ro SOLO cuando  havas lleg 
obstaculo.'',. 
INT * INK S;¡"En los dos 
5 puedes ace-lerar con 
elerar tfre- narj con 


RINT ““*"Pulsa la tecla que 


Yu: O-*- DG 


-HIUBCADO 
ORO O pm 


24 


ETT FARO alo que quieras hac 
$210 PRINT 7 INR oa 


«jugar a MOTOCROSS" INK 9;" 2 


ra nu u.s a Satto ¿TAB 20; 
"Longitud" INK 7," 3 roca 


Lir del programa" 
39220 IF INKEY%="1'" THEN GO TO 15 
o IF INKEYS$="2" THEN GO TO Su 


9240 IF INKEYS="3" THEN STOP 
29259 60 TU 39220 


Analisis del camino 
crítico (48 K) 


Tal vez no te excite precisamente el análisis de camino crítico, pero vale 
la pena interesarse en fl. Este programa puede ser usado para encontrar 
el camino más largo o más corto a través de un complicado laberinto. Tal 
como está dimensionado, puede manejar una red con hasta 50 interseccio- 
nes de hasta 5 salidas cada una. Las conexiones (entre intersección e inter- 
sección) pueden representar distancias o tiempo, y el programa listará to- 
dos los caminos posibles, o el más largo o el mayor número de salidas. 
Las condiciones de «loop back» (esto es, cuando un camino termina don- 
de empezó formando así un círculo) son automáticamente rechazadas por 
el programa. 

Dibuja tu propia red de caminos sobre un papel e introduce cada cone- 
xión por separado en las líneas de DATA de 1.000 en adelante. Después, 
pulsa RUN, ENTER, reclínate y ponte cómodo mientras observas cómo 
el ordenador resuelve el problema por tí. 


10 REM ANALISIS DE CAMI 
TICO Y 12933 MICH 
BEWS para 48k >SP 

20 CIM a3$150,5): DIM b$: 

DIM 3958130): DIM n4t20):; 
30,201: DIM p:39): DIM t1 

21 LET_ K=0 

25 G0 TO 5U0 

30 RED e 

40 FOR x=1 TO e 

S0 READ a,b,c 

58 FOR y=1 TO S 

70. IF a A " THEN 
la) (9)=C0HRS (33+b): LET On 
R$ (CODE ngfiaj+17: 60 TO 

50 NEXT y 

90 FOR ya1 TO 5 

109 IF agia) iygi=" " THEN 
tal (Y) =CHR$ (33+c0): 560 TO 
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Chomper 


Es una excitante variación del juego del comecocos. Tiene un laberin- 
to, pastillas energéticas, un fantasma, y más... ¡Que te diviertas! 
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Barcos 


No podía faltar en este libro una versión del tradicional juego de bar- 
cos, en el que tú juegas contra el ordenador. Para todos aquellos que no 
hayan jugado anteriormente a los barcos (¿existirá acaso semejante criatu- 
ra?) hay instrucciones completas en el listados. 

El ganador será quien consiga el primero destruir los seis barcos enemi- 
gos. Hay niveles de dificultad (1 Ó 2) entre los cuales puedes elegir antes 
de comenzar a jugar. 
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Tanques 


El título no podría ser más explícito. Es un juego para dos, en el cual 
hay sendos cañones enfrentados y una serie de colinas generadas aleato- 
riamente. Cuando le toque su turno cada jugador ha de intentar destruir 
el cañón contrario introducieno para ello el ángulo y velocidad del proyec- 
til. Vencerá quien haya conseguido el mayor número de puntos después 
de 7 disparos. 

Tendrás más posibilidades de alcanzar al enemigo si usas el menor án- 
gulo posible. A veces, con un poco de suerte, si el proyectil vuela a mucha 
velocidad, es posible que logres atravesar alguna colina. 
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Defensor 


De nuevo la Tierra es atacada por hordas de invasores y, como siempre, 
está en tus manos el destino de nuestro planeta. Esta vez, los atacantes 
vienen a capturar humanoides para poder usarlos en sus experimentos so- 
bre el desarrollo de distintas especies inteligentes. Tus semejantes, como 
suele suceder, se han subido a las laderas vecinas para contemplar la ac- 
ción. 

Así que... todo depende de ti, ya lo habíamos dicho. Debes destruir las 
naves enemigas con tu potente láser antes de que puedan poner las manos 
encima de la población indefensa. Si fracasas, todavía te queda la posibili- 
dad de disparar sobre la nave que haya raptado a un humano. Pero ten 
cuidado, porque si la nave estuviera muy alta, el humano se mataría al 
caer y tú perderías valiosos puntos. No olvides que los invasores son ven- 
gativos. 


10] 
DIO 
GRO 

zz 
oc 
UU 


Elo 


STANLEY 1992 
BORDER 0: INK 7 


z 
ARA OH D> 
ra 


- OSO 
GOwUPTNTP 


D 
TU 
La) 


DIDVOEGDONTIFMODDO 
GumEcz 


AAA TZ IZ 


DO» — 


m 
-0 
[5] 


Fr 
CrwmrG 66 


40 
o 
DIOFPRE 
-DOGMORMMIDMM 
HH ur 
—Z0 40 
SDDIAC 0UCI-T 
- +4 0 


D-* 
+4 


1 
2 
3 
A 
4 
5 
5 
3 
Do] 
UB 10 
El 
3 
Y 
V 
A 
R 
2 
y 


» 
0 


, a 
Fat ¿Oj 0caP pei cap; A 


un 
ND¿.08 AÑO b<z=lt THEN G 
T OVER 1;AT b,a;'";AT 


ae pe AND agz=" 
4 bre Cac+l: LE 
In? AT b+2, 
21 THEN des? 0 INT (RN 
0 TO 45 
DREENS (b+2,aJ)a" " THEN 
b+LUINT (RND+2)) - 


GS J|3:5úu-_ 
* + 
MP 002 0 PwuUNSN 


r 


RP 
A > om 
AS GANARRT 


0 + 40n-- 


23 


besarte” ob 


0] 


A 


q: “ 
Pe 
Om 1 OrG 


mueA- 


DIF DE-- 


1 
E 
3 
1 
6 
N 
1 
e 


5 
] 
R 
3: 
9 
Da] 
R 
1 
A 
AN 
D 
3u 
09 
Y 
N 
N 
Da] 
1] 
E 
5 
5 
pa] 


ESTUVO 
E 
.- HH 


fan 
ura 


-a 
G 


= 
Do00 
TUN Dww. MO Drr => 


ES 
Uk LAA DY 


E 
fulur E - 


o 
6 cad oa 


0- 0NEC JIM 


wOZ 10D 
<C FDA OHD-- 
¡IDA MM M6 


Mn 


THE 


a] 
H 


TNM-MDMODNAM pS "">2 M7 


I a 
I G 


0 


pas] 
26 


THEN_LET_a=31: LET 
" THEN LET_capacap+ 
¿SEEP_.1,12: BEEP . 


HARO AA 


BE 


ua A 


HAHHM 
du 


ZHZ ZU 648 Grorg 


z 
¡MOCOS 2 


L 
I 
I 
E 
B 
P 
¿LE 
I 
+ 
¿TI 


EN L b 0 TU 
F IN 58143 ol THEN LET b54 
PRINT OVER 1;AT y,15S; INR 6 


3 OR hlzlu A PRIN 
: GO TO 9u 
1438:254 PREN 50 3UB 


s ")+135% (b8 


=' 
Sr 18+3 


HEN BEEP .05,20 
.104,0: BEEP .Y 
l:ii,j: DRAU OVER 


a THEN A .05,20 
Dé, BEEP 
E E rad QUE 


b 
21l- 
l=] 


- Di 


PRINT RAT b, 

¿ PRINT AT_b, 
SEEP .03,-15: 
BEEP. :03,-10: 


4M_ Colt 6 wo 060 47 


>: 0 14134 CUONAADO AA 24 


a; 
=D: cdh Ha b+1 TO 19 
RINT AT d,a;"k": BEEP .02. 


ET f=f+1 


MH: fam mrmam 


45 


46 


H 


x 

mA pe 4 
o 

D- Dv 


+ DOFPMOMCONAD 
"ADO 


HO 
nu 
oz y 


F 
m 
= PDHDZITA HH Ga4 m4 


- DT 
TIODM 
44 

«a a] 


m 


D A > 
¡CROPRA MP HUuoor- 
+ DURB8 Z00-J SJ js MiAnñn TT 


:2-- 
274 UH P+ D4% OH UZNZ- 
MiZ - ) 
AN 


- 4 72D- 


Am AA mm zw 
be up 


G OL 
G1DG_ GGSAD SOTO uo: mz m 
a Se 


DI 


EN LET dir=-50m: 
THEN LET dir=5350: 


OU b)8+3: BEEP 


tx, (21-b)158+3 
DAÑO OVER 1lidir,0 
EN 1F (a<27? AND d 
4 AND dir=80)1 THEN 


550 PRINT AT y.15; OVER 1;b$: 
ET az=15 


i 


E 


5585 PLOT OVER 1;120, (21-41 *8+3: 


"66 


> AT Y+V/2 AV; 


av; vaa 

Py 
Y/2 a+ vi! ¡AT 
yv 2 av! "¡A 


P 
D0-- TOMO OHRJgU < 


«Mer. OGG Is 
MS 


GaZDIUGAGE< 


FUC Mm 
WZGH PDCO 
F40zw 


” 


Para 


, 


47 


LET 
THEN 


LET bx=b 
THEN L 


5,126,686, 


9,1992,BIN 11001100,2 


FOR yz TU 
9,9,240,24,2558,252,224 


LET bERND*ZO- 
Ñ'19110000,6,2 
PRINT_AT_RND 
CNO 10 dy OEFENSO 


LET yz50: 
LEA 

BRINT AT 21,1; 
iza 


LET bzxl 
LET cgz" 
q 

LET 


n 
xXx 
a+ 
uwW- 
Fw 
y 
pu] 
+Z 
ua 

>] 


xXNOx"- ASÍÓN 3 o 
NOA O HRHUNO- ORL TIRANA 
E A E A (Y - 70 %0m 
xp ze ”M E az 
E HI_ URI tft xd0!x<xrere 
wWeiddNDOwWBO4u TI WO uh) 
39 JAH JO Dt 3 JUL H Zhu nz 1331) 
a] Fr He. 
19090:909 --2 SASNADZ 08009: SAHNZOS MASIA _ SUN 
SUDAN ao E DOADRDDOAH NA-- MIN DOZOP —PAABUANONOZA AN o” 
VIVO ISAZA | O GIO AAA OLA AL AAA A AMAR AH AA ANOAOSOAIIDIAA ANDO: 
HARIAS AA AAA ASA EA AM A A A A AAA AADAAN MUNDOS UN BANUA IN + A 


DONAD 1-8 
Mm m4 -uy 
Ia 


y 
ET a ARNO *20: 
Tohlza: 


x 
E 
D 
JJ 
a 


48 


“TO 


56 Q, 
a 


GY 2ADUDPOLU 
GbBNCPEDa JITNAE 


O AA El PAT 
"=Dr”6Cú ”» 


«2. Z 6 Zo 
D: 0- - JULEN 


tur 


H 
a 
b 
3 
E 
3 
S 
3 
3 
|] 
d 


Dr. 


Doa Sama: - 
CA MTC a Da 


LM UA UrPRP: e - 6 


a 


— 6) 


¿DIO EN 
+: DAN JE: 


Li 


TINO DR NWouZJ=Z D 


bb. = 
0 
.- 


PGOOR ZII we 


mm 


— 
€ 


Zo 

- SID wd o 

- G6yuIacm>a 
you 


PRODU ns 
7] 


MOD 


a] 
pa 


== D>- 
On, 


i pl 
NZvIA 
wo 


- DIAN - MP 


e 
y 


Ta. PZI Maz 
FOBIA w 
2. mw 


PRINT 


ados 


ui 


cona —>3 
-buC 


re 
w 
TOoOc FA] DMOw vw 


DT GwIPO MIC WA J-—w 


1] 


"En cuant« 
3 humana, 


PRINT "Tam 


Losmar 
hum 
esteno 
cuyo Ca 


e8n cu 
nos unica 
E ee 


“uE 
o 


vaio Tas 
co 


1 AHLIIOA PA nn 


=Zi(MoCOo bf. Lo 
eu] ror 


m0 vu DJ 
a A 


Yi br 
Y word a 


e 
. 
DARIO 


mw DOAJ 


0 


DOC DI 
De POoGaH-. ad 
OZWBRÁC an: 


A 


wH>C 
30T73-0Obr--- 


Ban > DD-m 


o 


Bombardero 


Estamos en 1943. Eres un piloto de pruebas, lo que se llama un as de 
la Fuerza Aérea. Tienes instrucciones de probar un nuevo tipo de bombas 
que, si resultara efectiva, permitiría adelantar el día D. Has de lanzarla, 
pues, sobre un bunker enemigo situado abajo a la derecha en la pantalla 
de tu televisor. Sólo puedes lanzar una bomba por vuelo y, debido a que 
no has usado anteriormente este material, tardarás un tiempo en sacarles 
el truco a los mandos. Hazlo lo mejor que puedas. De todos modos, ya 
sabes que la guerra la ganamos en el 45. 
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Radioemisoras 


Este juego es para varios jugadores, cada uno de los cuales lleva una 
estación comercial de radio que compite con las demás. Después de regis- 
trar el nombre de la estación, se te dará la oportunidad de contratar a los 
presentadores para tu emisora. Algunos tienen una tarifa muy alta. Los 
más caros consiguen mayor audiencia, pero hay también algunos de baja 
cotización. 

Es muy importante para el éxito de tu estación que te fijes en el nombre 
del presentador que elijas: los que están al principio del alfabeto (Aard- 
vark, Boulder, etc.) son muy buenos para programas informativos y otros 
en los que principalmente se hable (concursos, radionovelas...) pero no pa- 
ra emisiones musicales. Los de enmedio están bien para programas de to- 
do tipo, pero no son todo lo profesionales que uno quisiera, de modo que 
Jetsetter y Ricky Radio pueden manejar shows en general con un 50 por 
ciento de música (más o menos), pero lo mejores discjockeys (los que te 
harían falta para un programa de pop, por ejemplo) se encuentran al final 
de la lista alfabética. 

Debes introducir al principio el porcentaje de música que crees que vas 
a pasar, junto con el número de coches que quieres usar como unidades 
móviles para cubrir acontecimientos locales, que aumentarán tu populari- 
dad y espíritu comunitario. 

Tu estación vive de la publicidad, de modo que tendrás que gastar dine- 
ro en la promoción de tu emisora para atraer la atención del público y así 
interesar a los anunciantes remisos. 

Después, el ordenador te mostrará un mapa con las áreas de emisión 
de cada estación con su respectivo signo. 

A continuación, después de un repaso anual, tendrás la oportunidad de 
cambiar la composición de tu emisora, como por ejemplo ampliando la 
plantilla de personal, comprando más coches, etc. El juego continúa hasta 
que algún jugador amplía su campo de emisión (el mostrado en el mapa). 
Las estaciones que pierdan su audiencia serán eliminadas. 
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NEXT 1 
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PUT LINE H%: LET E ! 
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3013 PRINT AT 8,0; 
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CONTRA — DE LAS UNIDADES MOV 


E a E THEN _PRINT "UE 
¿JE LE HACEN FA 
T sen 

AHD '¡PR+RI 
Ly 


a 
H 
¿13 -PR210000 
EN OPRINT UNO 
N 
*1 


JD DIAN 


gdaTDuO Momo ar yl 
T: 


- GAUZMPW PIDE 
-) e 
Fa 
mo 


= 
E 


y 
MRNODDIA Er 


ME 1D-- 01D D 00 MM T 00 66 Ci Co 
4-- i 


PO foi 


ERO_ 41% L 
9000: 60 TO 


Es Mm 


3 
H 
3 
3 
+ 
de 
3 
5 
7 
3 
I 
y 
I 
+ 
5 
4 
4 
4 


aaa  MARAANT ZORO 
GU LOZOSO =£ 


EST NS 


A_ GASTAR 


<nD 
FCTDOD 


00 Mua 
UU ÉEDZR 
m. 
a 


Po Hu + 
F-—En DU 


r 
m 


só00 PRINT "- 
5695 PRINT ''"OK. MUCHAS GRACIAS 


5700 LET Pl=PM*(1+RND)+R1(T) 1000 
0% [2+RNDI +200004RND 
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FOR :Ys1 TO 23:- IF-NiJ) <> 1 7 
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L NAAA NADIE" ES-CUCHA TU 


"POR TANTO ERES RETIR 
"DE TU CARGO 1!!! 
"RADIO "¡S$i1);" QUED 
42 PRINT_PAPER 24 INK, 6; ELOSH 
Lo DISUELTA O; ELASA O, 0, LO SIE 
FERO Ei ESEL NEGOCIO!!! 
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Submarinista 


¡Venga! Ponte las gafas de bucear y las aletas. Echate al agua. ¡Ya! Te 
has propuesto cazar todos los peces que puedas para la comida. Vas arma- 
do de un sencillo arpón y lo único que tienes que hacer para atrapar un 
pez es acercarte a él hasta tenerlo a tu alcance. Pero hay un problema: ade- 
más de los indefensos peces hay varios feroces tiburones hambrientos de 
carne humana. Y aunque te parezcan poco agresivos en la pantalla, lo cierto 
es que su comportamiento es peligroso para ti. Otro problema más grave 
consiste en que tus bombonas de oxígeno sólo te permiten una autonomía 
de 3 minutos, de modo que tendrás que subir a la superficie con bastante 
frecuencia para repostar. 

Los peces (y los tiburones) están programados para cambiar aleatoria- 
mente la dirección en que nadan, y ya te darás cuenta de lo difícil que pue- 
de ser la caza submarina. 


1 REM SC CUBA 
POR H. UALUYN 
PARA EL COMMOÓDO 


ADAPTADO AL 
SPECTRUM 158.485 
POR ANDY GREEN 
4 LET_ HIR=9 
S PORE_ 236558,255: REM *x MODO 
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438 LET TGS IR)1=3$I FS): G0 TO 59 
440 LET XiR)=31: LET Y(R)=INT 1 
RND+*11+10) Ñ 
445 LET F53z5: LET MIR)1=-INT (RN 
D+2+1): LET DIRI=INT (RND*3-1) 
447? IF Rd THEN LET FS=3 

443 LET THIRI=S 4H IFS): 0 TO 509 
359 IF S/Ri=1 THEN 50 TO 468 
455 LET SIRi=1: IF RNDO>.S THEN 


2472 IF 36N MIR) =1 THEN LET TSIR 
474 IF 36N MIR )=-1 THEN LET T4i 


48 
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N MIRiz-1 THEN LET T$41 
170 5: 1F SIK)1=0 THE 


AT OYARI,XIRI; PAPER O 
"o LET VIRI12YIR)+DIURKI: 
XUKI4+MHIURI 

1<5_THEN LET_Y(Kia5 
R3>17 THEN LET Ytk)=17 
D>.92 THEN LET DiKi=IN 


YD THEN LET XK! 
31 THEN LET x= e 
PER 0; INK UILKI; 
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54 320 

700 PRINT AT 0,0; INVERSE 1;' 
Z0S POINT AT 0/9, INUERSE 1; ups 
CES CAZADOS A e Tel 
THEN 60 TO 200 

718 FRINT AT 1,0; INVERSE 1;"RAI 
RE_RESTANTE = “¡RIRS OS, 

720 1F AIR:=0 THEN 50 TO ¿00 
759 60 TU 200 

500 PRINT AT 0,0 

3056 PRINT P;" PESCADOS PARA LA 
COMIDA" 

510 PRINT "TE HAS DUEDADO SIN A 


320 PRINT "OTRA PARTIDA 297" 
pa IF INKEYS<>"" THEN GO TO 53 
340 IF INKEYS$="" THEN 50 TO 34 
550 IF INFEY%S="35" THEN RUN 

550 1F INREYS="N" THEN PRINT 'G 
RACIAS POR JUGAR AC? INUERSE 1;" 
5S2UBASC: STOR 

570 60 TO 3840 
3000 PORKE 255605,0: PORE 23607,50 
REM INSTRUCCIONES SCLIBA 
3010 PAPER 0: INK 4: ABER 0; 0 
L5 PRINT TAB 11; "sc U A Ñ 
3420 PRINT "Tu eres un UEPEPE 
sta en una barca Y debes bucear 
Y cazar pe-c83 para comer.” 
3050 PRINWT PULSA. ..'' 
3060 PRINT "S...Para nadar a la 
lcdcid+$ a AN dl 
A derecha" 
3070 PRINT "E... "” “hacia 
la superficie" 
3090 PRINT "Xu... soe hacia e 
Lofando"” 
3100 FRINT "Vas armado con un a 
Trpon Y para calar Un pez debes 


de Pasar ma- dando por encima su 


E 
3110 PRINT "Ten cuidado con los 
tiburones,..320n bastante inofen 
sivos pero puede que derrepent 
e abran la boca Y entonces 382 
vuelven muy a9re si0os!" 
3111 PRINT 2T 21,0; INVERSE 1, 0 
ULSA UNA TECLA PA RA SEGUIR... 
e IF INKREYAS:> "0" THEN GO TO 31 
3113 IF INKEYS="'" THEN G0 TO 311 
3 
3114 CL3 
3120 PRINT "Ni siquiera te podr 
as defender CON El arponñi,,  ' 0" 
Siempre hay Un maximo de 3 peces 
Y 3 tiburones a la vez en el nar 
31509 PRINT "Puede que los peces 
cambien de direccion repentina 
mente cuando aleatoriamente entr 
an _en panico." 
3200 PRINT '“"Cuando entras en el 
agua tienes 1380 Unidades de dir 
e loxig.) en las bombonas. PURdEe 
5 Volver a labarca las veces que 
quieras Pparareaponer aire.” 
3210 PRINT * INK 2;"Un buen buce 
id Llegar a cazar 20 pec 
es |! , 
3250 PRINT INVERSE 1 "BUENA SUER 
TE uu PULSA_ ENTER" ; 
32560 LET 0U=RND: IF INKEYA<>CHRS 
13 THEN 50 TO 3260 
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3270 
35; 
4000 


4010 
4020 


RET 


Gn POKE 23607,2 
REM nabo dl Y DIBUJA 


M 
EORDER_2: PAPER 0: INK_5S 
CLS : FOR Ja9 TO 3: PRINT A 


Si 23605,%Y6: 


ToJ,0; INVERSE 1;" 


4030 NEXT y 
4050 INK 2: PRINT AT 4,20; INVER 
SE 1;" "3 INVERSÉ Q 
4109 INK 4: PRINT AT 18,0: 
$110 PRINT an -. o. o- .—-- - 
4120 PRINT " no --- - 
4130 PRINT OU rn 
42900 RETURN 
4399 REM +*x SUBRUTINA PARA DEFI- 
NIR CARACTERES *x 
5000 RESTORE : FOR K=0 TO 12: FO 
R JU=s0 TO 7: REM **x BUCLE K ELTJE 
LOS CARACTERES, J e 
EL. BYTE RELEVANTE 
5008 RERD A: POKE E0255+1(K+33) +9 
+J,A: NEXT NEXT K 
5002 RETURN 
5019 REM +*x% >!< BUCEAD. iS 
5020 CATA 0,0, 2el. 863,220,7, ¿0 le) 
5110 REM *x >' BUC.ó z 
3120 CATA D0,0,22,255,4,4,4,0 
5210 REM +* >Hc BUC,IZDA. 1 
5220 CATA 9,0,137,252,59,2:24,4,0 
5310 REM *+ E BÚ. IZDA. 2 
5320 DATA 90,0,154,255,392,532, SA 
5410 REM *% >%< NADA ADÓR DERECH 
5420 CATA 0,0,75,126,124,64,0, a 
5510 REM +** >: PEZ N. IZDA. 
5520 CATA 0,.0,590,1256,62,2.0,0 
5810 REM “< TIBURON DERECHA 
a DATA 9,140,190,255,130,128, 
5710 REM >< TIBURON DERECHA CON 
y LA BOCA ABIERTA 
a CATA 0,140,191,254,1%Y91,123, 
MS 
55310 REM ** >< TIBURON IZCOH. 
53920 CATA 90,49,125,255,125,1.0,0 
5910 REM +**x E TIBURON IZCR.CON 
LA BOCA ABIERTA 
S320 DATA 90,43 253,127,255,1,9,0 
58010 REM +% >+: BULEADOR DEOHH. 
MANO EN ALTO 
E CATA 383,585,124,50,50,40,40, 
58110 REM + >.<: BUCERDOR_ DOHA, 
MANO _ EN ALTO 
5120 CATA 28,25,562,50,50,20,20,2 
0 


51530 REM_ *%**% :-< GRAF.FONDO 
Et CATA £0,124,50,50,255,255,5 
Y,5u 
3292 REM 3% COPIA JUEGO DE 

A AS DE ROMA 

1 

3000 BORDER 0: FAPER 0; INK 9: C 
L3 ¡_ INK 4: IF PEEK 60256=255 TH 
Ev 60 TO 20609 
2010 PRINT "CUANDO ESTE NUM. ->" 
y LEGUE A CERO COMENZARA EL JUEG 
nl 
9020 FOR x=255 TO 1023: POKE 500 
QU+X, PEEK (15104+x) 
2030 BORDER TNT (1x- 2551/1001: P 
RINT AT_ 0,15; 1023-X;' : BEER .Q 
1, :X-2581 +00 
23040 NEXT 
id BORDER V: BEEP .5,12: RETUR 
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Terminaciones 


He aquí un juego de tipo textual, diseñado para poner a prueba tus co- 
nocimientos de geografía. Te advertimos que es difícil (y si decimos difícil, 
queremos decir difícil... ¿sabías que Ruteng es una ciudad de Indonesia?). 

Los jugadores deben pensarse un nombre geográfico que comience por 
las últimas letras del nombre dado por el jugador anterior. De modo que 
tú juegas contra el ordenador, el cual tratará de hacer trampas de cuando 
en cuando. ¡Rétala, (o sea, pon a prueba lo que ella dice) si te atreves! 

Por supuesto que si el ordenador te engaña, puedes hacer lo mismo, pe- 
ro es probable que ponga en duda lo que tú introduzcas. 


1 PO 
e K 
10 
<0 LET L5=0 
40 LET Ml=0: LET M2=0 
509 CIM 54$1:130,11): DIM 2C:1301: 
GIM x(1301 
¿en BORDER PAPER ¿y INKk 0 ¡y 
o 


5639 PRINT  INUERSE 1; "CAFS LOCK" 
CO SA Q," TIENE QUE ESTAR PL 
ESTI 

"O FRINT "HE AUUI UN JUEGO DE 
GEOGRAFIA EN EL QUE CADA OLISAD 
OR TIENE MUEDECIR EL NOMBRE CE 
N PAIS, CIL- CAR,MONTAN" CHAS =, 
DOWER 1,” RIO y OTRO LUGAR 
GEOGRAFICO CUANCO SERA S5U TURNO, 

ESTA PALABRA HA DECOMENZAR FOR 
LA MISMA QUE LETRA QUE LA ULTIMA 

CE LA FALABERA AN- TERIOR." 

110 FRINT “"PLUECE QUE TE RETE 5 
1 CREO SUE MOÓME ESTAS DICIENDO LU 
WN LUGAR COR- RECTO, 31 TU S5OSPEC 


e 


HRA3 DE QUE YOESTOY HACIENDO TRAM 
PAS, FULSA ENTER CUANDO TE TOD 
VE DO +" 5I ME QUIERES RETAR." 


130 PRINT "IRE APRENCIENCO SEGL 
N URYAMOS JUGANDO. NINGUN NOME 
RE PUECE SERUSADO MAS CE UNA VEZ 


"135 PAUSE 400 
165 LET Ns1 
170 READ GS NI CIN): TF G$IN, T 


0 535/="222" THEN 60 TU 10009 

150 LET N=N+1: 50 TO _ 170 

133 5d ESLUS DATOS CUNTIENEN 
5S pas CE LA LONGITUE 


200 DATA 
201 DATA * 
202 CATA “AC 
203 CATA * o 
204 CATA ' : 
205 CATA CA A 
206 CATA CA : 
S07 DATA "A Ly 
203 CATA CARPLUOT" 
209 CATA CAVON",d 
210 CATA "AYAC,S 
211 CATA "ATLANTICO,S 
212 CATA CARLES",S 
213 CATA CARNO",d4 
214 CATA "BOLIVIA 
215 CATA "BALI 4 
2186 CATA "BOTS 
217 DATA “BELI 
213 CATA "BELS 
213 CATA "BLULGAR 
220 CATA "EL e 
221 CATA C"BRAYELX",S5 
222 DATA "BRAZIL',S 
223 CATA "BIARRITZ'".,S 
224 CATA "BID" ,3 
225 CATA "CAIRO",S 
2 CATA "CASPIAN", 
z CATA "CHAD" ,)d 
2 CATA “"EHILE",S 
Z CATA "LAS LEG ¿3 
z CATA C"CAMER ICI e] 
2 CHATA U"SLANSER" 
Z CATA C"NTIETORI 
2 RATA MEMBLEYw" 
= CATA WUHAN",S 
z CHATA WHITCOHURCA")S 
pe CATA "TOLECO",E 
z CATA VERSAILLES 10 
Z CATA LONDON",5 
= CATA Í de 
Z CATA B 
CHATA 
CHATA 


240 . 

z4l 3 
cda 

243 DATA " G ¿5 

zdd A > 0,5 

245 : SMOUTA",10 
245 BOROUGH",11 
4? ZERLAND",11 
243 dE" ,S5S 

249 LA 

25u R",5 

31 NG",5 

2na 10 CITY",10 
253 IN",S 

2594 CING",E 

255 vOr,S 

255 ULUTION”",10 
Sy HAM",5 

2585 “4 

en AND"), 

25 “"UAMESTOUN" , 2 
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44 ENDINGS 4 
PRINT : FRINT "QUIE 


RES SER EL PRIMERO ?_ (S5/Ni" 


10 


COLEGA 


N 
1 
1 
L 
1 
2 
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mirar na 
ANA 


113) 


IZ IUNADA AHH EEE AA 
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Su 


5) 
SOGUaACT 
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Y NIE ES 


A SIA SS A 
SON MEN. EME Ea 
Al - 


LET AS=INKEYS: 1F Ag="" THE 


E E OA 
THEN LET Bs=FS$I1LE 


IF G="" THEN 60 TO =100 
IF OEND>.¿1 THEN 60 Tú 2002 
LET G=INT (AND IN-111+1 
LET U=a 

1F L4:6%4 THEN LET W=INT 


IF L:B% THEN LET O=INT 


LET L$=5%$ 10,11: 1F L4=B%5 AN 

¿3d THEN LET Pz (0,0 (01) 
¿500 

lizll+l: IF 11:100 THEN 50 


TO 2040 
PRIMERA ERZA E 
RNC>.3S THEN GO TO 2200 
O=1INT ¿RND*IN-1114+1 
xQ1=1 THEN 50 TO 2115 
LET PÍ= q TO Coya 


CE TRAMPAS ! 


ae E 
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LL 
AN Enviar 00. 
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CO LET Ps=F4+6$/8,11-(INT ¿RND 
Ll y 
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LEFT BSII)=0S (LEN 0%): LET L 

0 TO 2500 

REM IMPRIME NOMBRE DACO FOR 
LR COMPUTACORA 

FRINT : PRINT Fg 

TÓ 25 As= INREYA: 1F A5="" THE 


[a] 
E A$=13 THEN 60 TO 25 
THEN 60 TG 2700 


DORA RETALDA 
1. BRIGHT 1,"TE 


NEXT 
a Ta 27 


TO BORO TU GU Z TUTO 
mn 
600 
+41 cmo 
Se 


2d dd Did AN ON 


A SOTO 
LS C£Tdooa 


INTO “TE HA3 
DMERE ES": 
FRINT : 
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LET . Ml=9M1+1 
FERINT “LA PUNTUACION ES DE 
O PER. MI PARTE Y ¿MZ 
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dojo 
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UM 
IOIracmend 


su PRINT "LO RECONOZCO, . 

HECHO Aidaja oa: cdo 

LET =mM241: LET Fá="": PRI 

“LA PUNTOS ion ES AHORA: ¿M1 

FTOS. MIOS Y “ME” Pos: T 

OS." ERINT "mE MUELUE RA TOCAR 
, 60 TO 2200 

COMPLETA EL TURNO CE LA 

COMPUTADORA 

110 LET xXiDi=1 5 To 30ue 

2000 INPUT 04: IF Gg9="" THEN GO 

Tó 5000 

3u2u 1F P$="'" THEN 50 TO 531080 

3030 LET ES=PAILEM Pg! 

3440 IF Bá=4311) THEN 50 TO 3100 

3050 FRINT IMUERSE 1, BRIGHT 1:* 

ENTRADA. INCORRECTA... «« INICIAL 


SUSE 
ui 
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-3 


A! 
Fo 
e 
27 
H 
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WN 


E 
E, 
. 


mu. 
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T 
m 


on 


Cu 


Gua 
IMPROBGADIO Y d0d.R. 
1 TO MN 
E ANC xd) =1 THEN 


THEN LET xUJlilz=1 


0 dl TO 


Ed 


Y] 
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134 NEXT ; b 32 
150 PRINT "NO ES VAL CA, 
USADO YA UNA VEZ .: GO T 
0 TO CE LA COMP. 
Ss THEN 60 TO 
a] 


FRINT INE 1, “RET 


GO ly 
o z 


OI LIL) 


240 PRINT INR 3, "NO TE CREO ,' 

230 _PRINT_ INR 3; "AHORA VAS A TE 
ROQUE SER HONES-TO0, YA _QUE_ EST 
No ESTA INCLUIDOEN MI BANCO DE 


PRINT "ES UN LUGAR REAL 7 ( 
LET_AS=INKEYS: IF Ag="" THE 


0 TO 3500 
DO TO 3602 
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MOTINT 


2.0. 60 TO 2000 
EOAaL "ERES MUY HONESTO, 


Ds t 
SÓ PRINT “EMPEZARE VO ESTA VEZ 
la 

GR 
518 LET Mi=M1+1: PRINT "LA PUNT 
H 

9 

H 


D- 


ON E3: Asia le O o A 


LET PFg="": PRINT "AHORA TE 
COMENZAR <<... GO TO 500 


Instantánea 


Es un programa que hace buen uso de las cualidades gráficas de tu mi- 
croordenador. Ejercicio educativo para los más jóvenes, diseñado para pro- 
bar su capacidad de observación. 

El ordenador genera una serie de dibujos en la parte inferior de la pan- 
talla (un autobús, un tren, un barco, etc.) y los identifica con las letras. 
Después selecciona aleatoriamente uno de ellos y lo muestra en la parte 
superior de la pantalla. El jugador debe entonces pulsar la letra corres- 
pondiente lo antes posible. 


19 REM y HIGH RES.PICTURE SNAR 
MICHAEL BES 
15 POKE 23609,111 
20 BORDER 6: PAPER 5: INK 1 
25 LET TB=10000: LET 0O8="ZXCUB 
NM": LET P0: LET Rzg: LET Ta0 


500 
49 REM *IMPRESION EN PANTALLA 
N_ ALTA RESOLUCION 
S0_CLS : PRINT_PAPER 7, _INK_1; 
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Pagas 


Cualquiera que lleve una tienda o un pequeño negocio encontrará algu- 
na utilidad en este programa. 

Siempre la misma historia: es viernes, ya has calculado cuánto hay que 
pagar a cada uno y llega el momento de preparar los salarios en «paque- 
tes». ¿Cuántos y de qué billetes?; ¿qué cambio vas a necesitar? 

Introduce el programa y todos tus problemas estarán resueltos. Es rela- 
tivamente corto, completamente fiable y, por supuesto, no te hace falta una 
tienda para jugar con él. Funciona con cualquier suma, desde cientos de 
miles de pesetas hasta los pequeños premios individuales para el cumplea- 
ños de tus hijos. 


1 REM * SALARIOS «+ 
POR H. VALUWYN 
PARA_EL_CBM B4 
ADAPTADO AL ZX SPECTR 
UM 15/48BK POR ANDY GREEN 
138 DIM 011,12): DIM U(11): D 
IMA(110: DIM BA111) 
20 FOR Jal TO 11: READ CSID),U 
(1): NEXT y 
25 DATA "UN PENIQUE",8,81,"DOS 
PENIQUES",0,02 
39_DATA “CINCO PENIQUES",0.05, 
“DIEZ PENIDUES",0.1, "VEINTE PENI 
QUES" ,0.2 
49 ÓATA “CINCUENTA PENIQUES",0 
.S, "UNA LIBRA",1," CINCO LIBRAS", 
SY DATA "DIEZ LIBRAS" 'VE IN 
TE LIBRAS", 20, CINCUENTA L ETA 
60 LET SA=0: LET XX=0: LET D$x 
ee PAPER 0: CLá3Í : BORDER 21: IN 


159 e > 590 

INVERSE 1: PRINT AT 2,0;"<E 
NTER> PARA NUEVO CALCULO" 

1565 PRINT "«ESPACIO>) PARA TOTAL 
179 o '<DELETE> PARA CANCEL 


LET XXwu: LET 3Raua1 
id + eli IF Ags'"" THE 


21 
lr ASS*CHARS 13 THEN 60 TO 360 
IF RA$=CHR$ 12 THEN RUN 


400 


PRINT 
DINERO 
PRINT 


A 
$RINT ao ¿0; "TOTAL DE, DINE 
320 LET A=VAL_AS: LET Alxñ 
330 LET PACKET=1: PRINT FLASH 1 
¿"NUMERO _ DE e "¡: GO SUB 
9090: PRINT " "¡AS 
340 PRINT AT 1,0; "NUMERO DE PAG 


¡AS 
LET Bx=UAL AS: LET B1xB 
60 5UB o 


: G0 TO 
44 IMPRIME pasta x+ 


PRINT INK BRIGHT 1; "CORR 
ELSUELTOS > Fs 14; "NUM. DE U 
¡qe 26: "CANTIDAD" 


y INK 3: POKE 
235%2,255 

536 1F J<>12 THEN 650 TO 540. 
PRINT TAB 21;' 
PRINT TAB _14;' AL 
LET AS$=>5TRS AT) So +o s559u 
PRINT C$iJ);,; . 
LET Cz=LEN (STR% (INT (R(J)1 


51 IF xxal THEN LET CzLEN (STR 
CLINT (B1iJ11)3) 
559 IF xx=1 THEN_INK_4: PRINT T 
AB _22-0;B(JY): 60 TO 571 
550 INK 4: PRINT TAB 18-C;A(D:; 
570 LET AS=STR$ (A(J)*XVIJ)) 
e THEN LET ASz=5TRS (B 
A AAA 


574 IF XX21 THEN LET ATRAT+B(J) 
*V(Y): 60 TO 588 

575 LET AT2RAT+A1J) Ud) 

a LET Neg: FOR Kz=1 
EN 


y Baro 

em E THEN GO TO 6589 

ET DS=D6+ ES 

ET FLe0: FOR Xa1 TO LEN D 

ODE Dgr4? AND CODE D$:<58 

EXT X: IF FL:"0 THEN 60 TO. 
AND VAL DE«1 THEN 


THEN LET N=1 
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L 
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650 NEXT K 

8560 IF Nz0 THEN LET DázD$+".00" 
: GO TO 700 

570 LET R.LEN DOS: IF DÉIA-1)3 
"_TMEN LET DArxD4+'"0D" 

INK 5 

LET ARLEN D 
q TAB 30-A;D 


750 
PRINT I 
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TO 
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PRINT 
Al; 


60 
IN 
EL 
750 
INK 
Xx £ 
AO 
LET ANAR 100: FOR y 
IF Xu1 THEN U0 
-1:(J) *100) «0 THEN GO T 
T_ (A-INT (U(J)*+100, 


Az=D THEN LET Xx=x1 
3238 (d1+1: IF XxXx0 THE 
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GD D D DONXAD M1 


PR 
SOGGANGSAE GIEZUTII?PGGOBEA 


ZANCGFT AHGTONDOIMA MH 


mcrarma 
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E] 
1 
3 
TO 
3 
8 
Va] 
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x => 
40 


lo e TO 10: LET RIJ)I=ALJ) 
LET BiJ)=zBiy 


LET FLx0: 
60 TO 2409 
LEN AB: 
A eS THEN LET FL2=FLa+1: 


3020 IF (CODE RAGS1X) «48 OR CO 
$1X)>57) AND CODE ASKIX)<>46 
LET FL=1 

30 NEXT Xx: 


L 

=.8,-31: 

LVE A_ INTRODUCIR, 

SE SU: BEEP .02,12: 

v4Y IF PACRET THEN IF DP. O 
AG>2 THEN LET FLa=1: GO TO 230 
23060 RETURN 
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Nevvmarket 


Este es otro juego del tipo de carreras de caballos, y en éste eres tú uno 
de los que participan en la carrera. Hay ocho caballos y pasarán dos cosas 
después que hayas escogido el tuyo. Primero verás que todos los demás 
caballos salen galopando, dejándote atrás a media velocidad. Pronto des- 
cubrirás que lo que montas es una de esas creaturas que no empiezan ni 
siquiera a arrastrar su peso hasta que no está a la vista la línea de meta 
y que entonces corren más que cualquier otra cosa sobre cuatro patas. 

El segundo problema es que los demás caballos tienen el (sabiamente 
computado) deseo de eliminarte de la carrera. ¡Intentarán cerrarte el paso 
e incluso se te acercarán de lado a toda velocidad para derribarte! Y como 
en esta carrera no hay árbitro alguno para protegerte, procura arreglártelas 
para encontrar un hueco y ser lo bastante rápido como para evitar todo 
tipo de problema. 

Los caballos que choquen entre sí rebotan aleatoriamente hacia los la- 
dos O hacia atrás, perdiendo de este modo tiempo precioso. 

Bueno, atento, que ya están dando la salida... 


O En Ti 


1 REM CARRERAS. ...... WALUYN 
2 REM UN JUEGO DE CARRERAS DE 
CABALLOS 
S DIM aí??%: DIM b(i?1: DIM x1(7? 
¿o DIM Yi): ] 
10 LET czu 
15 BORDER_0 


INR Xx 
3S,0;¡S5TRKE (x+1) 


FOR xz0 TO 21: PRINT 

“o NEXTOX 

PRINT RT Qq,0, me Contr 
BR2ABAJO  " 

"Elige tu caballo (1- 
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RS LE ls 
6-40 G6GAAAAO AO 


98 IF hs<"1" OR hg>''7" THEN 60 
TQ _ 97 


99 LET NVAL (h$): LET accz(20 
-ABS (4-N0)) 4/34 
100 LET kK$K=INKEYS: LET MaINT (R 
NDe7+11 
102 IF msn THEN br TO 109 
ln kKf$3"08'" THEN LE 


5u 
110 LET kh="7" IF RND>.5 THEN 
LET k$x'"8'" 
120 IF ximj>x(n0)-2 THEN LET K$z 
e in)>3y im) THEN LET kK$="6 


Pr THEN LET yím)=y (m 
21 THEN LET Y im) z=1 
ME THEN LET y im) =y¿m 
)>20 THEN LET Yim)=20 

mM) z=x (M) -1/5L0 
1 710 
INT” (RND+4+1) 
icon THEN GO TO 240 
c THEN LET jsjxacc: 1F 
139 THEN LET cx1 
IF c=1 THEN BORDER 2: LET c 


IF ca2 THEN LET 
LET x(i)exti)+jZ 
THEN LET x(1i)228 
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IF izj THEN 60 TO 559 

IF y(1)<o4(j) THEN GO To 55 
IF ABS (xl1)-xi311>3 THEN 6 
550 

LET d=1: 1F bli)obljl THEN 


y 


Ss 
10 
40 
23 
59 
Yo 
10 
20 
30 
40 
50 
TO 
5u 
+ 

l-] 


Tr oe 
?me 
Jl 

CA 


> 
06 
e0n 
A Hr 


LET Yyíi)=ml 
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N LET x(y122 


THEN 50 TO 4u0 
> 
NT bli11,INT ati), 


we , 
PRINT AT INT e TNT XLLI 


23 IF x11/>328 THEN 40 TU Eye 
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39 LET ataiex ti! 

3S LET bri1=Y(1) 
40 MHEXT 1 

728 G0 TO 108 

1000 REM rerrInstrucciones *e$A 

1019 CLS3 PRINT RAT 9,0; CR 

RRERAS DE CABALLOS ds 

1020 PRINT "En este juego de Car 

reras tu " 

1939 PRINT "debes de montar uno 


"Llos del lal 7. Tie 
“guir el camino evita 
"tros caballos, puest 
“chocas con otro caba 
“velocidad, Ya que te 
hacia" 
1999 PRINT "atras 0 a los lados. 
'Pueda que esto te parezca fa 
PRINT "pero tu caballo es m 


“al princio Y 58 <qued 


“comenzar la carrera, 
correr en cuanto e 


600100 


q de color "¡ PA 


ol 
- mu 


He D D--D-D- DAD Dw 


“y esto ocurrira cua 
5 ya” 
“un tercio de pista r 
de" 


“este modo siempre te 
"demas caballos Por d 


NPUT_ INVERSE 1) "PULSA <E 
PARA_SEGUIR" 
: PRINTA 

s dificil 


1] 


De DTO 403 


cil 
119 
u 
111 
E] 
lle 
par 
113 
lb 
114 
PER 
114 
ndo 
114 
eco 
114 
nar 
114 
ela 
114 
NTE 
115 
cer 
all 
1 


i 
1 
Y 
1 
1 
a 
1 
1 
E 
1 
d 
1 
E 
1 
3 
1 
L 
1 
Y 
1 
e 
L 
a 
El 
1 
e] 
e 
1 
> 
r 
1 
E 
1 
2 


m4 bs 0 CY 0 
CN Y 


¡ "PÚLSA UN 
NREY $: 1 


TeDbrCroO0r-n-- 


8l 
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RETURN 
REM *x 5set Up horse araphic 


FOR ¡1:20 TO 7: READ qr 
POKE USR "a"+i,gr 


FOR ¡x0 TO 7: READ qr 
POKE USR "“b"+i,gr 


NEXT 1 

FOR_ iz0 TO 7: READ gr 
POKE USR "c"+i,9r 
NEx=T 1 

FOR izq TO 7: ¿RES gr 
PORKE USR "d"+i,g9r 
NEXT 1 


FOR ¡2x0 TO 7: READ qr 
PORKE USR "e"+1,9r 


MEXT- 1 

FOR ¡iz0 TO 7: READ qr 
PORKE A A e 
NEXT 


DATA o. 09.0,12,3,3,5,10 
DATA 3,12,286,113, 258,254, 1, 


3920 DATA 0,128,224, ,144.,192.128, 


3930 DATA 9.0,1,195,63.63.50,80 
3910 DATA 128 198,174 .153 2552.22 
1,20.34 

3350 DATA 0.0.0.0.0,9.0.,0 


4000 REM +* posiciones en panta- 
LA Ex 4%4+4 

34910 FOR qa21 TO 7 

4020 LET a (q)=2: dd E 

LET b1q)=q%+3-1: 


EOU-ON-O0Nn-G0?SGwurGNrOr Ou 


HE Gs Ly Ly Li Us US YY Us Y UY SUI GSUIIDIUIIDS Ur 
DIAM EEE UDI A ARA GOO 
GGUCMNOCADSEREGAGEROEA SO 


Y (Q)uEb( 


REM_*s*x* ganador 44% 
SE RENT i-1: INR (2*INT ((7- 


| 

i¡=n_ THEN GO TO 5030 

ENT AT 0,0;"El ganador :. 
Pdo h 


ANAL 
- ¡66-666 S-G 


PREOTON: PRR*ROGUIP 0 
17) 
DOw DR 


AT 0,0; "ENHORABUENA |! 


0600667 AGRA € 


URD UNO UH 


T y(i),x(i); FLASH 1 


* 


¿0; "Pulsa cualqu 
0 

LET POS INKEV O: z 
TO 51309 

*e 


o 
TT UDZ 


HARAN RA 


AD 01 NADO ARA UU Ud 
S6 Gr PARO 606 SS 
ME GUNQ-00a 
66 60:60 au 

“u 
DD DP 
mm mec 
SHE EL 

5 

* IN 


Para cambiar la suerte 


BAD LIGIDA— 
De A] sm 
OE DO MAYO 
a tu.” 
a -— -w09 c 
L LRIE-DL—w 
A PE 
Ona r-aDO + 
DD Lu -pyDO 
YW4EDE M-TERLO 
A LL ES 
AA EA 


> z 
au ul 
-( ( (14 
“5 
vo 3 Ls] 

on + 112) 
can » 5] 
2.0 00 LN 
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Gastos de vacaciones 
(48 K) 


Calcula las necesidades de divisas para viajar a distintos países. Dispo- 
nes de los cambios de 19 divisas y puedes disponer de otros si así lo de- 
seas. Se manejan cuatro divisas a la vez en los costes de vacaciones así co- 
mo páginas con referencias cruzadas y doce conceptos de gastos de viaje 
abarcando desde las facturas de hotel, pasando por llamadas telefónicas, 
hasta regalos para la familia. 

Introduce los costos calculados en cada una de las 4 divisas, pulsa una 
tecla y aparecerá el total en libras esterlinas. 


*+ Y 1995 OS BEVS* 
15 PORE_ 235039. 
20 BORDER 6: PAPER 7: INK 
25 LET Ejg=" 1 510 20 Coleos 


Du 

30 DIM C05112,58): DIM C(13,4): 
DIM NA (4,3) DIM | Rig4) 

35 LET CF=0: LET TF=9: LET UF= 
0: LET Nz1l: LET CYal: LET FG=0: 
LET T=u 

40 GO TO 5Uu 

S0 INK 0: CLS3 : PRINT INUERSE 

, GASTOS DE VACACIONES 

50 FRINT "FSTG" ¡TAB NEO 
B dl N4(21 ¡TAB 139 Ni B 26;N 
sl 

5 PRINT AT 1,0; OVER 1;,”, 


30 FOR X=1 TO 7; LET PES (Xx0 


-2 TO X*3): PRIN 


30 FOR Yz1 TO 
100 LET U$=STR 
110 G0_5UB_300 
120 PRINT AT X+ 
130 NEXT Y 
1409 NEXT xX 


TO ORT x+1,0;Z5;' 


4 
(RIYIFUVAL Z4) 
1,Yx7-3;0; 


id A 1867: DRA INR 1; QU 
¡0,-6 

160 PLOT 87,157: CRAW INR 1; OU 
ER 1:0,-63: PLOT 143,167: DRAW 1 
NK 1; OVER 1;0,-53: PLOT 199,167 
: DRA INK 1; ÚÓUVER 1;0,-53 

170 ERINT AL 9,0; INVÉRSE_1;" 1 


1530 PRINT INK 1¿AT 19,0; INUERS 
E_ 1; "INTRODUZCA 2 NUMEROS COMO € 
DO0R- CENADA (pe _ 32 PARA VER LAS 

RE- FERENCIAS CRUZADAS (1; (NSt2 
A 

135 BEEP ,1,10 

159 REM_*CALCULADOR DE REFERENC 
IAS CRUZADAS 


1909 INPUT INK 1; INVERSE 1;'%0D 1 
NTRÓDUCE “M” PARA MENU"; X$ 

200 IF x$="M" THEN GO TO 8508 
205 IF x$="" THEN 60 TO 340 

210 IF LÉN Xs8c>2 THEN 60 TO 180 
¿20 LET F=UAL x4tdi-1: LET 5zUA 
L X$12)-1 

225 1F 5<0 OR 5>4 OR F<0 OR Fod 
THEN GO 2 180 


230 IF 3=0 THEN LET Q=RI(F) LET 
Plis adadid LET RKK=s'"S5TG" GO TU 2 
5 

235 IF F:0 THEN LET Q=1+RIS)1: L 
di LET K$=N$131: 60 TO 

265 

240 LET U=RIF1 «RIUS 

250 LET JBSNGILE): LET RA=N4 (5) 

260 LET M=1 

2565 IF 0:<.01 THEN LET Q=0+l0: L 
ET_M=M+$10: GO TO 255 

270 LET D5=5TR% D: 60 E 300 

250 LET C=0: PRINT AT 11,0; PAP 
ER 6,/35$,54,5$:34;AT 11,0; " ¡dh 
TAB 11: K 4; AT 11,0, OVER 1 

220 Ea Xz=1 TO 7%: LET Z=M*UAL E 
BILD X- TO 3%x) 


300 LÉT U=CÍFRVAL EBCIAX-2 TO RX 
J 

305 LET O%$=STRS U 

310 60 5UB_3YuvY 


320 POINT AT 11+x,1) PAPER 50; 
TAB _9;" na 

530 NEXT X 

335 PLOT 0,99: DRAW INK 2;0,-65 
: DRA INK_2;128,0: DRA INK 20 
¿868: CORAN_ INK _2;-123,0: PLOT 564, 
83: DRAN Ink 2,/8,-55S 
0339 REM.**C0ROSS RATES (ANY AMNT 
) 

340 PRINT_ AT 20,0; AT 20,9, I 
NK_2; INVUERSE 1;” EN FASDusE' Ue 
QUIER CANTIDAD DE"; (8), Q 
da VER "'"EL' EQUIVALENTE 
est ; " 


85 


86 


15 
> 
Ss 


Gumz 


INPUT Dri 1;"0 INTRODUC 
“MENO? "US 

IF Uf="M" THEN GO TO 8589 

-IF LEN U$<d4 THEN_GO TO -18u 
IF U$S: TO 3)=kK% THEN LET Y= 
U$S TO); LET Q4=5TRS_ (Y4C/ 
GO SUB 35000: LET x=0: G0 TO 


TO 3)uJ% THEN LET x= 
U$i4á TO): LET QS2R2S5TRE_ (X4M/ 
GO SUB 30800: LET Y=0: GU TO 


GO UIC 


"¡J5;TAD 2 


B PAP 
ENTE Eb? para" 


GIA — A — 0 0 
ZOO PAE FOIOIO 
a] 

H 
TN 
ct 
Li 


-m a 
SL 

y) 
z DC 

> H 

yA 

= 

D 

pas] 

+= 


TAB 15;N$(2); 
¿N$d) 
415 PRINT QOUER 1;HAnT 


S17 PRINT O ; EA 
dea 


445 FOR X=1 TO 12: FOR Y=1 TO 4 
o PRINT_OAT x4+2,23+6%+Y¡;C01X,Y1¡;: NE 
XT Y: NEXT Ox 

4530 PRINT OVER 1;AT 14,0," 


AA AAA 


455 BEER .1.18 
24580 1F TF=1 THEN LET TF=8: GU T 


, 500 BRENT RAT 19,0. INVERSE 1:;"I 
NTRODUCE LA LETRA DE LA CUENTA A 
UE Y EL NUEVO NOMBRE ( pe B 
S05S INPUT INVERSE 1;'"0 'M” para 
Ea” "ox: 1F xXS="M" THEN GO TO 
S10_IF _ X$="" OR LEN _X$c2 OR_XS1 
dl 'PU OR xX511)>'"L'" THEN 60 TO 5 
520 LET CA4ICODE XB11i -54 0 <= X BR 
TO): FOR x=1 TO 12 PRINT AT X+ 
2,D0;CHRG' (x+B41 CO ¡OS (X);: NEXT 

Xo 0 TO 509 


Q, INVUERSE 1; 'P 
pene INTRO. EDO 
AMZ00 

1; '0 introduce 
50 IF x$="M" TH 


IF x%5$="" THEN GO TO > 
IF x$11)< "AR" DR xs (1) 0 E 
(QQ): Mm” OR LEN 


PAP 


LET MOs2xb ia TD: 6 
LET CICODE XH(11-64, 
5120. PRINT RT COD 
da X$i21-761,0 
EEP_.1,20 

TO 53 


Tu ue uo 
gGim-D OUIdI+ 1 
JFHUuxXo 
-< 1. 060 
m 
ww. UH 
Xx Oan 
19d 
ñ 
me 


H 
— 


GQ 


m- AP 
g m MUax<-"+ mom 


is Ma ps] 


PRINT AT 15, E 
¿QL¡TAB 20:11 


“q 
FHGEMdA Cin  EAUIGANAZO ORI SUR anal 


de AAA FOISIIOEO 
z a OPEN JD O MURGA 


SESTER' 

Y FOR Xx=1 7104 hs 

2 PRINTOAT_16,1+84X¡RIX): LET 
=<=STRS_ (0113 ,X1/RIX): 60 SUB 
00: PRINT AT 17,1+8*X;0: LET T 


"0 


10) 
574 NEXT x 
57S BEEP .1,1 
580 LET U$=S5TRS T: 60 SUB _ 3000: 
FRINT AT 18,14;"TOTAL=£":0 

s9U BEEP_ 1,1: INPUT INUERSE 1, 
PULSA «ENTER> PARA VOLVER AL 
MENU" 5 

595 40 TO 850 

600 CLS : PRINT AT 0.3, PAPER po 
¡ INR 7; "GASTOS DE VACACIONES" 
"505 LET 35=" 

" LET BS=CHR% 34+C0H 

R$ O S4+CHRG_ + CHRG O 

510 PRINT : PRINT " ESTE PROGRA 
MA TE AYUDARA A_CAL-CULAR TUS GA 
STOS APROXIMACOS EN EL EXTRANJER 
O EN SU PROPIO MONE-DA EN UN VIA 
JE_A OTROS) PRISES." 


5620 PRINT_: PRINT "LAS CAMBIOS 
DE_MONEDA_ ESTAN _BA- 5ADOS SIEMPR 
E EN EL VALOR DEL DOLAR EN_CAD 
A PAIS. POR EJ., EL CAMBIO DE LI 
BRAS ESTERLINAS A PESETH3 ES P 
RODUCICO CALCULANCO ESTERS Y $/ 


PESETAS," 


87 


88 


Gi 


530 _ PRINT : PRINT "LA DIFERENCI 


A ENTRE_LOS PRECIOS DE “COMPRA” 
Y LOS DE CUENTA” RE-PRESENTA LAS 

“GANANCIAS DEL BANCOEN LA TRANSA 
CCION. A MENLIDO SE SUMA UN PEQU 
ENO RECARGO DE CO- MISION.” 

535 BEEP_ .1,109 

540 INPUT FLASH 1: "PULSA «ENTER 
3% FLASH D0;X4 

850 CL53 : PRINT AT 0.3; PAPER 1 
¿O INK 7 ¡"GASTOS DE VACACIONES" 

B50 PRINT PRINT " DEBIDO ALA 
SNORMALMENTE GRANDESOIFERENCIAS 
ENTRE LOS VALORES CECOMPRA Y DE 
VENTA PARA LO3 TU-  RISTAS ES RE 
COMENDABLE ENTITAR MULTIPLES TR 
ANSACCIONES.' 

B5S FRINT : PRINT "ES RECOMENDA 
BLE LLEVAR £5-19 CO-MO SUMA MINI 
MA PARRA CUANDO E LLEGUE A UN 
PARIS. SI SALES DE LINAEROPUERTO 6 
RANDE SUELES TENER ADISPOSICIÓN 
ALGUN BANCO.” 

570 FRINT : PRINT " ADEMRZ, HAY 

ALGUNAS MONECAS QUESON MÁS BARA 
TAS >5I 5E COMPRAN ENCASA ANTES D 
E FARTIR Y OTRAS CE-VISAS SON MA 
S BARATAS FUERA EN OTROS PAISES 

TUANCO LLEGUES." 

E£30 PRINT : PRINT LO3 VALORES 

INDICADOS A CONTI- NUACION SON 
SOLO APROXIMADOS . LOS URALORES 
ACTUALES EN EL MER- CADO UARIARA 
N, A MENJOD INCLUSO FUERTEMENTE, 

CE UN DIA ns OTRO" 

6355 BEEP .1, 

6290 INPUT FLASH 1, "PULSA «ENTER 
> FLASH 0;xX% 

700 FOR x=1 TO 4: READ N$ix): N 
EXT > 

705 FOR Xz1 TO 4: READ R(x): NE 
XT X 

710 FOR Xz1 TO 12: READ CHA(x): 
NEXT x 

740 REM +22%% ME NU r35%+* 

750 CLS5S PRINT AT 98,3; SO z 


E a ro 
ELE. ¿R 
E 
RI 


cr 


£ 
ME 
I 


Dc 


Z-— == 


Ú 
DD 
N 
D 
4 
E 
E 
E 
E 
A 


(z A 


780 PRINT : PRINT "ELIJE “"¡ INU 
ERSE_1¿"CAPS LOCK"; INUVERSE 0;” 
(CAPS SHIFT+21." "EL CURSOR SIEM 
PRE DEBE SER UNA _"; FLASH 1;"0"; 
FLASH 0;" EN LOS” * "INPUT" 

790 PRINT PRINT "LOS CODIGOS 
PARA CADA PRIS HAN DE SER SIEMP 


RES o 


793 BEEP 10 
300 INPUT" INUERSE 1; "PULSA «ENT 
ER: "5x3 
310 «0 TO 1500 
550 ELS  PRINT AT 9,39; FAPER 1 
INR _7; "GASTOS DE VACACIONES" 
ES PRINT PT 3,3" * MENU e 


ES 
4 
360 PRINT AT 7,3;"1 TABLA DE U 
ALORES (UER)" 


370 PRINT AT 3,3:"2 CAMBIAR UA 
LORES«DIVUISAS" 

390 PFRINT AT 9,3;"3 CALCULO DE 
REF. CRUZ. tEUUTI,! ñ 

390 FRINT AT 10,3,"4 TABLA DE 
COSTOS DE VACACIONES” 

392 PRINT AT 11,35;'S CAMBIAR € 
ATEGORIA DE UN GASTO" 

325 FRINT AT 12,3;'"5 CALCULAR 
GR3TOS 0 

300 BEEP RINT AT 14,7; 
INK 2; F L3SA NUM. DE SE 
LECCION" 

9314 LE 5586: 1F x=2585 
DR xx42 EN 60 TO 91 
2320 IF LET UF=1: 60 T 
D 1530 

930 IF 0 TO 1500 

340 IF 50 TO 50 

959 IF 0 TO 400 

350 IF LET CFza1: GO T 
O 400 

955 IF X=! LET TFz1: GD T 
D 400 

970 GOD TO 350 

17293 =TOP 

1300 CLS : PRINT INR 2; PARER 6, 

INVERSE 1; VALORES RAFROX. F2TG 
="¡ INVER [ra] 

156403 LET x=27 

1510 PRI US$ USA dollar" ¡TA 
Bx"1,.5 

1520 PRI " ENS CANADA dollar" 
¡TAB O x;00 

1330 FRI FFR FRANCE franc"; 
TRB Xx; 1: 

1340 FRI 'CBFR. BELGIUMIG%LuUxo f 
ranc ¡TA RES E 

1350 PRI ITL — ITALY Lire" ¡TA 
B x;'"22861 

low FRI “ SFR.  SUITZERLAND fr 
anc'" ¡TAB 3,22" 

1370 PRI DMK-— N.GERMANY D.ma 
Tk “¡TAB x,;"3.34" 


90 


RUSTRIA schilL 
PORTUGAL estcud 
SPRIN peseta"; 
HOLLAND 9Uilde 
NORWAY krona"; 
IRELAND punt”; 
GREECE drachma 
MALTA pound";T 
JAPAN uen" ¡TAB 
RUSTRALIA doll 
¿NEW ZERLAND da 
FRINT_AT el, 


<ENTER> 
INFUT XxB: 


z 
H 
TMona 


a e 
CTM<- PORIZIO 
on 


Z2Z-.0 


2% THEN PRINT AT 0, 
s INR 2; FLASH 1;' Pp 
PARA MANTENER. ie 
¡NB Uva Ya! 
E TRODUCE: NUEVO VALOR 


e X=1 TO 13: LET CI1x,Y 
LET ON$iv)=x5 


PR INT AT RE $,AT_ 21,0, I 
: INTRO, NUEVO UALO 


TD 
:D MN 
Je. 


E 


A06_ GOOD 
NA 2 


INPUT 66: y “2%. THEN 60 
o7u 

OR CODE QUE 7 
LET RíiYI1=0 


$: IF 0:10 THEN 
10u +01) 100: RETURN 
THEN LET G=(INT 11 


A 


REM +2 DATOS 1 
DATA "FER", "SFR 


2 
L 
a 
$ 
2 
2 
2 
N 
R 
2 
2 
E 
2 
2 
2 
pe] 
L 
3 
a 
3 
3 
3 
ho 


GUEG+* MIG AGO 
O0UOarAO0-JMTIN +40 


91 
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Emboscada 


¡Los gráficos en alta resolución hacen que merezca la pena ver esta esce- 
na forestal! 

Has sido emboscado por unos pistoleros, los cuales están escondidos 
detrás de unos árboles. Tu única protección es un bajo muro. ¿Serás capaz 
de matar a todos los pistoleros antes de que alguno de ellos consiga darte 
a ti? 


MSi5 R 
3u (a 
Khz" E 
l=0: LET F ET _MX=3 
40 PAPER 4: INK 7: BORDER 1 
59 60 TO 50 
198 REM *+*LECTURA DEL TECLADO*»* 
120 LET TMeTM+l; PRINT INK 0; P 
APER 6;AT 15,281 
125 SEn ASPEER 29556: 1" As255 
THEN 30 TO 208 
130 1f RA265 THEN PRINT AT 13,10 
¡RS: LETOMN1; 60 TO 200 
140 1E_A=ge THEN PRINT AT 13,10 
¡0$: LET MNx0: 60 TO 200 
1890 IF _(A268 AND MNm1) THEN LET 
FRz1: 60 TO 20 
160 1F A=73 THEN LET MXeMX-8: G 
o TO 208 
170 1F A=77 THEN LET MXmMX+8: 6 
0 TO 200 
180 GO TO 120 
199 REM +*RUTINA DE ACCION++* 
210 IF MX<Q THEN LET MXm8 
215 IF MxX>220 THEN LET MX=220 
220 If FRx0 THEN 60 TO 300 
228 LET FR=O 
230 LET 
S3S IF Mia THEN LET YaY+32: 6 
0 TO 250 
240 IF MxX<?0 THEN LET yey+7: GO 
TO _ 250 
¿ez 14 MX«124 THEN LET YaY+8: GU 
244 1F Mx (154 THEN GO TO 250 
248 LET YaY-8 
250 REM +IDISPARO Y SONIDO ++ 
255 PLOT OVER 1,82,7 


260 DRAW OVER 1;MX-50,Y 

2562 FOR X257 TO 53 STÉP -1: BEE 
P .Qa5,X: NEXT X 

268 PLOT OUER 1,82,72 

270 DRAW DUER 1/MxX-60,Y 

272 REM *4+COMPRUEBA S1 HAS 

ACERTADO ++ 

275, 1F 1x>23 ANO _MX:35 AND, Kg (2 
158" THEN PRENT. IN 
K 0; PAPER 4;" E TO 
: GÓ TO 290 

278 IF MX>81 AND MX<87 AND Kb 2 
13"0" THEN PRINT AT 8,8; IN 
K 0; PAPER 4" RU: LET Kad) 1" 
: GÓ TO 290 

260 IF MX>181 AND MX«107 AND 00 
(3)>"8" THEN PRINT_ AT 8,13; 

INK 0; PAPER 4" MU: LÉET KsiS)a 
“1: 60 TO 290 

232 IF MXy144 AND MX<155 AND Ká 
(41>"8" THEN PRINT_AT 3,19;".'; 
INK 0; PAPER 4" 1": LET Ksid)a 
Pp: 60 TO 290 

29s TF Mx>185 AND NX(195 AND K4 
(5)>"8" THEN PRINT AT 

¡_HNK 0) PAPER 450 Ml: ers To 
282 REM **COMPRUEBA SI HAS 

GANADO + % 

290 IF K$:/6 TO 10):2'11111" THEN 
50 TO 850 

299 REM 4+*RUTINA PISTOLEROS*+ 
318 LET K=1+INT (RND+*B1 
q IF K%4(K+5) 21" THEN GO TO 1 
320 FO K3iK)="4'" THEN PRINT INK 
0 iii (K,1) ,5(K,2),388: 
330 TF K8 SU" OR (KBIK) 207" 


3 Klz" 
AND_MN=0) THEN GU SUB 406 
e LET R$ IKI1=CHRS (¡CODE KS$IK)+ 


so IF K$iK)>"7'" THEN PRINT INK 
0; PAPER 4,AT 51K,1),5S1K,2);5$41 
D;: LETOKS(KR)1="0' 

369 40 TO 129 


4 
1 
HAU 


TU 
YA Z Mee On 


o 


PZ 
ANPAXPPAR Pr 
J 
Z+x 


--. 


000 -MPEG- Uno 
e o o ooo 
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692 CLS : PRINT_OINK 1; PAPER 7; 
""$1983 MICHAEL BEUS"¡AT 4,0; "HA 
s 3100 RODEADO EN UN BOSQUÉ ' PO 
R_UNOS PISTOLEROS. EL UNICO 51 
TIO EN EL QUE ESTAS A 3ALVO DESÚU 
5 DISPAROS ES DETRAS DE UN PE 
QUENO MURO." 

503 PRINT AT_9,0; INK_ 1; PAPER 
7; "INTENTA MATAR Á TODOS LOS PIS 
TÓ-LEROS.PARA ELLO DEBES SALTART 
E EL MURO,APUNTAR Y DISPARAR. P 
EROTEN CUIDADO,TIENEN TODOS BUEN 
A PUNTERIA!! "¡AT 18,0; "CREES QUE 

LOGRARAS SOBREVIVIR 2?" 

598 LET f4zCHR4 21+CHRA 1+" 

"+CHRA 
22+CHRg_0 

518 LÉT GER RIFOMAE LE a 
2230nRe 0 

515 FOR x20 TO 7: FOR yz1 TO 9: 

READ a: POKE USAR CHAS (143+Y4) +x 
¿2a: NEXT y: NEXT x 

629 FOR Xz0 TO_7: REBD ajb: POK 
E USR "T"+x,a: POKE USR SE +X, 

NEXT x 

625 FOR Xal TO 11: READ L(X,1): 

READ L1X,2): NEXT Xx 

530 FOR X20 TO 7: 

SR ONU, A: NEXT 


Mi 
545 LET Sail)" EU: LET S4i2)e 


50 FOR Xa2 TO 7; RERD_A: POKE 
USA CARA (186) XA: NEXT X 

8585 FOR X=8 TO ¿A AB: 
EQSR AA: PÓKE” 5SR "a +x,B 


ESO FOR X20 TO 7: READ AB: 
ELUSR "Yu +xX, A: POKE USR "MM +x,B: 
ess LeT ONCHRS 151CHRR, DIOMA 
17+CHRS d+" A e CE 


P 
579 VET RESCHRE 1SACHRA SICHRS 
AS o, EL AS 
875 FOR Xal TO 5: READ S(X,1) 
READ 31X,2); NEXT X 
580 FOR x21 TO S: FOR ds? TO 5: 
RERD Pt(tx,Y): NEXT Y: NEXT x 
690 INPUT INK 7; PAPER 2; "PULSA 
<ENTER> PARA VERLO!!!" ¡X$ 
700 REM ** IMPRIME ESCENARIO 44 
705 CLS : PRINT PAPER 6; INK 1; 
PE MBUSH 41933 MICHAEL BE 
707 FOR x=19 TO 26 Aa 4: PRIN 
Ñ PAPER 4; AT , NEXT 
1 11: 
O A 


95 


PRINT AT LIX 
NEXT 

Eur 0; PRPE 
Ñ “AT 

ULERO* 

MUERTOS 4 « 

PAPER 7; INK 
LET PR 


P 


NT 
AT 14,0;u8 


INT AT 13,10,0 


o; 
THEN LET TB=TM 


05 PIST,. 
280: LET k8s="00800000 


880 LET TM20: LET MNx=Q: 


ant ST-- 
O XK -QuU: E 
FO0XdO Zu 
TOD4 0 H3u_1 


INT_AT 15,21; 
M +*DISPARO JU 
INT AT 20,8; 


INT INK 


a] 
F 

XI 

. 
FP 

a 
MN 
pa 
E 
TI 
5 
E 
Z 
H 
FP 
Le 
HA 
14 


3 DAD -010 AMOR 
0 AOWE ADO - DRADO -MIO AN -HA > 
- WII DRRS -0 -NONODSS 

A - UD Po. ANDANDO - -1H0D . 


Ad AR LX, 


19139 REM 4% 


219,255,253,255 


**PROTAGONISTA!!«x* 
RA 244,113,113,33,255,113 


** COORDENADAS DE 


Ao 
Dd 
E > TIERODIP-OTL -EFODDI 
E O A AM LI O O al 
o ea la aaa par Pia 
O O ds 

O MONDO FS DO A AD 
a 718 

SS A e 


PISTOLEROS y + 


DE DISPARO DE 


ISTOLEROS ++ 


L=] 
A 
A 
o 
a 
Mm 
A 
mo 
a 
A 
[2] 
D 
Mn 
da 
pu 
Tí 
a 
a 
R 
5] 
a] 


1079 REM *% 


26 


96 


Números 


Si eres romano y no entiendes los números en base 3, entonces este es 
el programa adecuado para ti. Convierte entre binario, hexadecimal, deci- 
mal y números romanos, más otros sistemas numéricos (de diferentes ba- 
ses) que tú inventes. ¡Cuidado con los marcianos de 7 dedos! 


N 
B 


1 
pal (500 AND Tg4ix)="D")+( 


ETOUESRENNSE 


REM *x% NUMEROS ROMANOS 
19582 MICHAEL BEWS 
PORE 23509,111: POKE 236889, 


BORDER _ 3: PAPER 1: INK_7? 
DIM KRIS): DIM Aste)” DIM 


GO TO 550 

GO TO 5650 

REM da ROMANOS 

LET La5: CL 

PRINT PAPER 2; “NUMS. ROMANO 
933 MICHREL BELNS" 

PRINT PAPER 2;AT 2,0; "DIME 
NUM. ROMANO COMPLETO COMO 
EJEMPLO : MOMLXXX IU le 
S PRINT AT 21,0;"PULSA 
ARA VOLVER AL MÉN dl 

70 INPUT "NUMERO ROMANO “"3TS 

75 FRINT AT 20,0; 


30 1F TSxe"" THEN 00 TO 600 
90 PRINT RT L,0; 
"; PRPER 6; 1 


K_2;AT_L,0;, "NUMERO ROMANO: ";TG, 
95 FOR Bz1 TO 3: BEEP .05,14: 
EEP .05,17: NEXT B 

100 FOR X=1 TO LEN TS 
110 _LET CIX)]=[(10090 A 


OD _ 068dIPODuÚ 
ZOPGOGDuIGO 


130 ")+150 AND 
AND TEN xo 
de (1 AND ITHIX 


0x3 44a A 


TaT+CUX) 
C1UXx) =8 


97 


230 NEXT X 
lado LET X=0: IF LEN T$>9 THEN L 


ET x=1 

250 PRINT_INF 2; PAPER 65%. ") 
F a BEEP .05,2: B 

2 2: IF L>20 THEN INP 
UT PBRER 2: INK 7; "BULSA Pp 
ARA VELO. AL MENU"¡X$: 60 500 
299 REM CALCULO DE BASE URRIABL 


10 ria ¿ PRINT.INVERSE > UE 
BASE UARIABL 3 M.BE 


Y Oe 


*- M6 


“GU 6 
197) 
CODO 


P 


AMHDPG EC e. 
umz< 
MIDSMM 


o 
QM. GEO 1 1 To 


00 Y OZ POGTD 
DU 


Z 


pad 


a 
HOHAAHTA 


H 
MODE MATAR MONTEZ 
De HAMACA 

ca 


y 


E) 
pi] 
a — 
TOXUnNBE 
- DOIGITDOM PUMA Má -00 


m 
tal 


mu - AGT=ZO-GZN 
- “DUES qe 


HUDADIO TI 
204 
.- w 


- GMELIZ di 
E 


0 DO 
ZM 
5] 


ner 
— Y 


QRO 
FH00:6-->-6 1! 010 WGOGNAGECE_ GOGMO :2 A 


; ES TL 
A A B; “3 ME 

XÑb; B; 0.14 JET E B;' 

cet mocoea2á. —1r Bud THEN L 

(0:6580 

15 82 THEN LET_KOs285 

FOR X=1 TO 3: LET NEKIixX): P 

reo Ca “"N; RT dx, 0;: 


S FOR Y:23 TO 1 STEP -1: PRINT 

TAB (25-Y43) ¡AF 1Y);: NEXT Y 

430 NEXT _X 

435 G0 TO 430 

440 REM Dat EA E CALCULO 
LTIBRASE+* 

Za: ; CET ASIZ) 2" 


AT Ss 
¡XA 


po) m 7% 
POHPRAP-- Tp Gin 


OZ" _ ro 


TO_a 
LET AF IZ) 
ND INA-Bx* 


IF 1>2B THEN LET NAel: NEXT 


0d AS 1Z+1)=CHRS (48+1+17 A 

ETURN 

EM “ENTRADA _ DECIMAL PARA 
CONVUERS ION + 

RINT INK 7; PRPER 2;AT 19, 

:RIBE UN NU 0 DEGAS PAR 


MER 
BASE 
RINT INVERS ¡"0 BULSA 
¡ CENTER"; IO INUERSE 49 
LV. AL MENU" 

PUT ¿ELASA 1; "(ENTRE 1 y 
xg2"" TMEN 60 TO 508 
RXa1 TO LEN XS: IF X$(x) 

$10 2,9 THEN 00 TÚ age 


a y 


DG z 
Pp PROBPBNP 
20 AS 
Gui 
Da 


m 
m 
G 


U 
o 
DUO TH HEDOZOD - 


pS 


DRO DODO TR: ZOG 


D-52 
HOOD H 
1] 


zZXxX Mm 2 
— MHZ GM DAM AZAARARATA MM -0MB-- PDIHE 


Qu 
RW =DIHDEDO JJ MOAXGUITDIRLREPRDO UrRGG0-0IZO 


ZO 


m x 


NOLUSO TE 


TUDO E e diia 66 :GNAGTCAOME 0SAn a 


U 
417 


G 
MZ D AÁAMDODZC 


z 
£ 


- fi 


mu - 
0-0 DG UP MEA DIAO > 


OPIO 1!" 
ar, 17,4; "PU 


IF Az=255 


45 
coa 


OR A>S3 THEN GO TO 


gr 
GGGS GodazZa € 0 


1 
6 
5 
al 
H 
5 
5 
4 
5 
5 
E 
5 


900 
TO 1100 


99 


530 IF AzS2 THEN 60 TO 120 
700 IF A=53 THEN 50 TO 318 
799 REM *x*EXPLICACION DE LOS 
NUMEROS ROMANOS + £ 
300 CLS : PRINT PAPER 2; "NUMERO 
3_ ROMANOS 91983 M.BEUS' 


310 PRINT INVERSE 1;AT 6,08;" 
EN EL SISTEMA ROMANO " 
320 PRINT INVERSE 1;"M=100 Dx=S 
909 C=100 LaSQ Xxz10 ¿NES Iz=1 


340 PRINT INK xx; PAPER 7; ''CUAND 
O UNA LETRA DE MENOR VUALOR VR IN 
MEDIATAMENTE DELANTE DE UNADE_ MA 
YOR VALOR SERA RESTRADA DE ESTA 
ULTIMA EN VEZ DE SER SUMA- DA. 

E MODO, QUE LxXxa60 y XLmd4 

350 INPUT INK 7; PAPER 2; "PULSA 

<ENTER> "¡xXx$ 

3570 LET RFz1: GO TO 484 

899 REM *EXPL. NUM, DECIM.* 

900 2CLS : PRINT PAPER 2," "SISTEM 
A DECIMAL ¡Base 1801 e 

919 PRINT : PRINT INVERSE 1;'"O0R 
IGEN:Diez dedos y pulgares 

hacen conveniente el 
contar en Eros de diez!" 

3920 PRINT PRINT INVERSE 1;'"ME 
TODO: Todos los sistemas de cu 
enta necesitan simbolos que ba 
sten para representar la cuen-ta 

de cero hasta uno menos que el 

numero de la base.Esto quitreade 
csf Sus los simbnlos 90 1 2 3 45 
67% 3 son neacasarios para DE 
CIMAL. No existe EE" sim- bo 

Lo aparte para la BASE en si Ud 
¡ez en el caso de Dacimal),'; 

930 PRINT INVERSE 1," la BASE 

representada por 1 Y in-dica 1 
arupo completo de diez U-Nnidades 

yg un resto de Y. e 

340 INPUT INK 7; PAPER 2; "PULSA 

<ENTER> “ XS 

950 CLS : PRINT PAPER on 
A CECIMAL base 10) 

960 PRINT : PRINT INUERSE 1;'"Se 
gun esto “140 significa di 
ez grupos de diez y “1 

diez Veres diez Qrupos de 
ez 0 18 x 10 x 10 que es 
smo que 100 (19 elevado 

970 PRINT_: PRINT "10? 

10* 193 1902 01 100” 

230 PRINT " 

y a] 

380 PRINT : PRINT_INVUER 

RA: CUALQUIER NUMERO ELE 

3 A, NUMERO (Pp, 

va] PRINT PRINT INUERS 


T 
E 
1 
[a 
e 


100 


sn a 
dl 
M3 
>m 
6» «mn 
Dala 
-0- 
i 
E a Y al 
— dy lA 
d 36 
aouzJ 
5500 
o 
5 vo mo 


amo 

XHCQULIH 
Mm. 
dl 
€“ 

+4C -aD 


14 Cor ÁÉ 
pr) 


TM — ds — LA 
q0 23 -u4 
GD e -b- 


+4 
DODw- bp 


u TD 


A e] 
+m- 


CODAMZ 


GD 
a 
O - 
or 


m 
> 


50 TO 600 
*EXPLICACION BINARIO+ 
: PRINT PAPER 2; "SISTEM 
¡Base 2) ' 

R ¿ PRINT INVERSE 1," 
TERRUPTORES MECANICOS Y 
ICOS_5ON LOS MAS SENCILLOSY 
MAS FIABLES, PORQUE SOLO TI 

:05 POSICIÓNES POSIBLES, E 


DIDO* 
"DE LA EXPL 
TEMA BINAR 
IO DEGUCIMOS QUE EN. BINARIO Su 
LO HACEN FALTA DOS 3IMBOLOS, 
a: 1. PARA_CONTARHASTA CUÁL 
QUIER EDUIVALENTE ":; 
1130 PRINT _INVERSE_1;"DE VALOR 
ECIMAL. USANDO EL ES- TADO DE 
PAGADO” DE UN INTER- RUPTOR O 
IRCUITO COMO REPRESEN-TACION DE 
"Y Y EL ESTADO DE pENSENDIDO 
COMO REPRESENTACION "1* POD 
EMOS REPRESENTAR CUAL -QUIER NUME 
RO DECIMAL “; 
1140 PRINT INVERSE 1; "USANDO UN 
UNA CADENA DE SENCI-" LLOS DISPO 
SITIVOS DE 00S “ESTA- DOS”. 


ERs E INVERSE 1;'"'PULSA «ENT 
> "¡XA 

150 LET B=2: GO TO 380 

399 REM *HEXADECIMAL 

(base 18)" 


HeRZMTmM0OrTE+ +0 e. wvIw- 
E POGGI 

DIOMMAFAFEDOwDO Mu Mr a+ 

D6GZZ IZGHAHGIOG ZG=T000 


DeROZOO 


PRINT INDERSE 1," 
Ñó: 


“EROMA Xe_ AMCART DEDO Pe 
ZO 


e ZOOM ZZ O 


Lk -080t- 40 
TO+ -A LA > 
a Lol Ta 


DAA > 
DAI AA 
DÚANOD 4 
MW > - 08 - 


102 


Entrenador (48 K) 


Este juego consiste en una carrera de caballos dividido en dos partes. 
En la primera, los jugadores mostrados en una pantalla, en la que sus con- 
tadores son movidos aleatoriamente por el ordenador. Esto permite a los 
jugadores comprar y vender caballos, ganar o perder dinero, entrenar sus 
potros y prepararse para la segunda fase, la carrera. Antes de empezar és- 
ta, cada jugador tiene la oportunidad de decidir cuál de sus caballos quie- 
re introducir y cómo quiere distribuir sus apuestas. Después de que los ju- 
gadores han dado instrucciones a sus jinetes, se corre la carrera y el vence- 
dor se lleva tanto el premio en metálico como las ganancias de sus apues- 
tas. Al principio del juego cada jugador tiene 10.000 libras y a lo largo 
de juego se van presentando sus balances, pudiendo seguir así el curso de 
sus fortunas. El juego continúa hasta que alguien alcance las seis cifras, 
o hasta que sólo quede un jugador con dinero. 


DO 


M ENTRENADOR 43k 
En “Ant _ ", "Bee " 
m E ] 


bb 0 
no. da 
2h 

- UU 
IDZX 2 


CIM h1i151: DI 
161 
¿o DIMaliB31: DIM 
,161 
$2 ¡IM 0 


E 
pus 
E 
-U-- 
ES 


E 3 
OOOO 7 OJD 


e 


z 


E 
AHDH-=HA-H2Z 


FDTO 
mmc 
; =-y 
AMENA TO 


WE UNFREwJCTOTIaON-O *- Jour Gu ¿HT OE 
or 


Kk 
4 
L 
1 
F 
1 
2 
1 
5 
1 
2 
2 
2 
2 
2 
ES 
3 
3 
3 
3 
2 
4 
4 
l 
4 


)11=18-1INT (ti-1)/4) 


: BORDER 1: CLS ] 
INPUT "Cuantos ¡Uuaadores” 


“sn 
IF nx1 OR m8 THEN 60 TU 


FOR í=1 TO nm 
PRINT AT 21,0,"Nombre de 


103 


104 


INPUE 0 


eS 
IF LEN e$>5 THEN PRINT AT ¿2 


¿“max 5 letras” 
LET aslil=es: 


NEXT_1 
BORDER 2 
INK_S: CELS 
TRRINER 


GO TO 12 
LET 3 =1000 


PRINT 


INK 7: PRINT RAT 2,4) ada u 


Úno empieza con $1N 
142 PRINT "Cada UN 
nador «dueno'' 
l4d PRINT 
Ueden_com- 
1458 PRINT 
levar a Las 
150 PRINT A 
dinero" 
152 PRINT 
39 Yr“o en 
154 PRINT 
el tuyo o el 
156 PRINT A 
Me joran cua 


LOS 


we 
a 


pe] 
-.J Mw Ur 


g 


DI 


ML 


OO 
4.2 MC 


mg 
e 
y 
+ 
“y 
L 
Us 
El 
+ 
n 
DN] 
dE 
y 
L 
al 
a 
4 


múcr- 
om D0.+v 


DIC 
TS 
pan 

44 
LAS 


> Ac o A 


442 
Mm” OcCM.CIOF. Ue pora 
1 


-- Or 


VUVWUMINUINON Mov 
z 


ES A ASS 


PO AA EOS 
1) 
yo El 
H 
Ze 
4 
L 
+ 
P 
PrI- 


EP 
Qr- 


E AT J,15;' 

FOR ¡21 TOM: 

LET linezd: LE 
HEN LET linexl: 
PRINT AT_utl,p 

11+coL;CHRS (43 
EXT 


WIID UPRO fu 


DUNA 


270 PRINT AT 
272 PRINT AT 
275 PRINT AT 


Doy." 
0.25 Un entre 


caballos 35e AP 
entrenar gol 
Produce 


carrer 


Om m5 


“tabaltos ( 


cu 


caballos 
pero em 


r 


"5 NEXT y 

LET Pli)=1 

T COLmQ: IF i 
LET col=-4 
(111+Line,w (2 
+1) 


"COMZO. > APOST 


RENAR_ APOSTAR E al 
230 FOR ¡=1 TO 56 
PRINT AT ?+4,15; : 
ERINT RT 743,10; E AS 
IF ati)<0 THEN P IN 
o A AT P+J,1B8;a (4) 00 
, j 


PRINT AT 0,0;"Es el 
“¡ahimi 
LET throzINT (RND*+B6+1) 
50 _ SUB 29500 
PRINT RAT 0,15;,thro 
2590 


: LET colx0: IF m 
34 THEN LE? linezml: LET col=-4 
335 PRINT AT w (1, Piml1+Line,vi2 
¿PMI MECO LS 
337 LET xap im) +thro 
340 1F x>12 THEN LET x=x-12 
345 LET pimizx 
350 LET linez0: LET col=0: IF m 
»4 THEN LET Lline=W0: LET colu=- 4 
2 PRINT AT uvi(1,p imii+Lline,wi2 
A E (43+m1 
0 5UB 9000 

THEN 60 TO 45u 

OR x=56 DR x=3 OR x=1 


OR x=? OR x=1 
% OR x=12 THEN 


DILO 0 


DG e 
JULIO as 
O 7017 0011 — 01 


m 
3 
3 
y 
H 
2 
H 
5 
E 
S 
1] 


L0-J 


25u 
5 LPFRINT 0: GOURDER 3: CL5 


452 PRINT '"»tencion, que va 3 
0omenzar la carrera, 
455 PRINT : PRINT “tine for a 
illa. 
450 só SUB 9500 
Pd r=z0 
i=1 TO 


NANA 


$ 


ON — E — IM 


LA 7 un 


IF ug="" THE 


THEN LET alti)=ali 
(110 THEN LET alilza 
SUB 25600: GO TO S3S 

"THEN. LET =(J=1l: 
x=INT Ihtil+fFigds 


z 


JS 4 OT OO 


lU+ Ei 


Mur 
DN — ma 1 En 
- 4 


105 


IF y3 


z IF 35[(m)=0 OR sim)=5 THEN LE 
To 4 (3) =4 (31+1: 50 TO 610 
55350 LET rrerr+1: EST Eve, 
835 PRINT AT viljrri,viz. 


LET z=z+him)+f (m) 
LET pimizrr 
IF r<oorr THEN 50 TO 619 
FOR j=1 TO 15 
IF AS THEN 60 TO 5662 
h3= ARIjd2FOjd: 1F hY9<=1 
h2=1 
¿ PRINT AT O. oi 
PRINT RT rx, 0; Aly, 
LUZ + al; 


al 
i=1 TO Nn: INR Y 
atiic=0 THEN PRINT AT <=0 
1% nQ tiene dinero para 
560 518 3500: 60 TO S 


So AT 13,0;34$(1);," APUES 
: EA 
87.0 k=1 TO 10: LET ufzINREY 
53 UA IF UB="" THE 
THEN G0 TO 6%0 
Letra ye caballo? "; 
LET ys=INKEY 


=INKEYS: IF y%a'"'" THE 


Odd 
a MPAA 
A 

GO W-HRZNE 


¡ae OSA 
u-- 


a 
3 
t 
5: 


THEN LET 


“Cuanto dinero ?",4%4: 


1-a:0 THEN PRINT "No 
a EA 1": 0 SU 


“road 
O 


Gm 


Y. 
Gu OE dí Oia 


don 


LET alilzali)l-a 


1 14,0;" 
PRINT 20,0;" 
FRINT 
NEXT i 


60 sus 
60 SUB 


O 
CODO O A a 
a mu 


de ds 
wauwJ Y 


FOR ¿=1 TO 16 

LET ¡jas=spIj) 

1F 5 iji<>5 THEN 60 TO 550 
LET E IF vi2,jali24 
LET riyales . 
IF vil.ja)>16 THEN LET rija 


a31:=3 AND viz, jai<19 T 
lad 
(RND+5 1 
60 TO 7 


EN AL la l 
¿60 TO 730 
7?0 GO TO 550 
560 5UB 1000+100+r (ya) 
IF m=1 THEN 60 TO 350 
PRINT AT vil, ja1,v (2, ja1;" 
LET víl,jai=vtl, yal +u 
le. Jal + 
¿Vi2,J191,h$ 


LA AND vi2,Ja1<5S TH 


06 
a 


m — E 
0d d 
P- Urra 
DOrGcua añ 


UT po 


an 
SEDE 


40m 


Let aiod 


Sd 


IZ / URAC RF Lgdd): 
LET -Z=1 
2 PRINT_AT Sa HL e 
Pp 


H 


” 


E 


54 
“uu 


THEN_LET alk)zal(k 
“Gana la ar 


Ed La tl 


t- 
mr 


 LET ets: 
LET Ppijl=8 


T 
Mm 


Sarrz ANDO ZA AU GIZ 


O -1 STEP -1: IF 
J+Y V (2, a) +X)= 


PROSA REGIA" -T O wWNO-JOO 


3 
E] 
E] 
2 
a 
N 
3 
l=] 
3 
8 
8 
3 
a 
3 
3 
8 
F 
3 
4 
3 
3 
+ 
e 
E] 
3 
3 
>] 
E 
3 
3 
3 
1 
1 
R 
- 
1 
1 
2 
2 
( 
Ú 


DP 6 00 T MAH 6 01 04 04 4 06 00-41 dr JS O 


Aceerrr Ger 
z> 


108 


15 


2006 LET 
2007 FOR 


(18+1,2+j1=" " T 
(SCREENS (15+i,2 


"Perdera 


Woo Y*aáua Puma 
Pad 


(Xx) 23 FX) +INTO ((113-¿) 
NEXT y 


Ulgun caballo no 
, esto es porqu 


Deberia de 
casa |!" 

UB 39300: € 

$ antes 

TF Ss tit<y5S T 


ON ON — 0 
P 


MT WRTuwRID-A NO mn 
1 


Y J0Ó di 


13) 


3 INT AT A 0ABCiI ¡TAB (7); 


2 INT AT 1,14;t(11: PRINT A 
20D) Mob iPt lbda 


-D- - am [cd e a] 


lu 


j=1 TO 30 


dl AT ORND+20,RND421; "ENT 


Lo] 
a] 


NEXT_j¿: RETURN 
ERIN AT 2,8" TTTTTTTTTTTTT 


M3] PRINT AT 7,8; “TTTTTTTTTTTTT 


4020 PRINT_AT 15,0; “TTTTTTTTTTTT 
TTTLTTTAETIETTES 

4030 PRINT AT 19,0; “TTTTTTTVTTTTT 
TTTTTTT TT TTTTTTT 

4040 FOR ix=2 TO 19: PRINT RT 1,2 


RPG ZU rPrOor5Er y 00072 00 
366 DOUE: UA EGewAO 


Da] 
P 
[va] 
Da] 
5 
[va] 
[va] 
[va] 
a 
[va] 
ln] 
va] 
5 
Da] 
10] 
E 
la] 
Da] 
$ 
va] 
1 
1 
Q 
[va] 
[va] 
u 
E 
[va] 
[va] 
F 
4D: 
dr 


FHESPG 00D lo TU TO 


S-- 
Sm - 


xT_i 

i=3 TO 6: PRINT AT i,la 
NEXT i 
RINT AT 15,4;"0": PRINT AT 


ETURN 
OR : 6: PRINT AT i,lá 


OR LET t(i)1=INT 

BODA? (LT A2B0)- NEXT i 

ETLIRN 

F x<z0 THEN PRINT "Este ca 

ha perdido muchos puntos” 
5109 


INT ib disponibles Pp 


=0-- 


¿66 6 616 
O E 


UFO 


REN One Gi 9ít = 
”- 


o 


=- 


.«u , 


e 
1=4 THEN PRINT "El 4,to 
ix LET 7 Iim,j)3x: 60 


“Ordenes para num. "; 
=1 TO 10: LET y%z=INREY 
INKEYA: 1F ygz="'" THE 
ra OR CODE (Y% 
susu 
$ 
TREN LET x=0: LET b= 


pa) 
.n. 
ha 
6 
o 


UN 


203 ATI A UA PoPR PRUPS 
m 


0 GOA G WELL 


E 
F 
P 
3; 
R 
F 

Ma 
R 
E 
+ 
P 
a 
F 
I 

19 
= 
F 
X 
L 
E 
I 
7 
L 
L 


MATTAOMAÍACODOY NO DO 


LE AE 

NEX 

ej] SUB 9900 : 
FOR mel TO 4: LET (Mm, y) =0: 
XT om: RETURN 

“Valor actual $; 


ANEGEn OS 


A 


+ Un 


LET CS INT dió 

LET x=-250% 

IF RAND>.5 TREN LET x=-x 
LET aim)za im) +x 


SIsTolo] 
60m 


DAA SL 


¡"DUiere "¡asgim 


E 


TO 7058 


O 7045 
vende 


Puro fu ou A 


pa 


dodo dd dd Ad od ÁS 0 0 04 
GUA DH MOHO 


=G66 G6GOGGO6O- 


+ (ULA 
G 


PRINT AT i,2. 


109 


110 


o 


0,0;A$(i 
4 Ahora v 
“Comprador 
hay niny3y 
¿THEN 6 


GT fo 
Ss —- 


ZGOUG 6/1 
-—J 
DHH=H0 AH Hu” Da 


(dar ACI di 
a 


Ii 
=$ 


15) 
w 


“dd q dl A HAM 
= 


q + > 
--IAo 4 604< 
To E 


a MT  : CA E 


0 JA E II 
=D .HOZzo 
¡IMAROO WDC 


D3H 


pa 


2:00 7206 
Gas 


- 090) 


THEN G0 TO 375 
. -= hecho” 
a (m) mal 
co TO 375 


THEN 60 TO 3100 
THEN PRINT AT Qu 
": GO SUB 9500: 
3100 
COUTO cnero 
mento? ngti) 


a<0 HEN PRINT AT Y 
dinero suficiente” 
50 TO 3050 
T (RND+5S+2) 
LET bz=INT (x*a/3000): IF b> 
EN LET b=5 

FiilmFli)+b: LET alím)z=a 


sUB 2009 


NE» 1 
60 TO 375 
PRINT AT 0,0;" 


RETURN 
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Bioritmos 


Según la teoría de los bioritmos, las capacidades física, emocional e in- 
telectual de un individuo se rigen por ciclos de 23, 28 y 33 días, respectiva- 
mente. Durante cada ciclo la curva irá aumentando hasta llegar a su punto 
máximo, después bajará hacia el valor medio y seguirá hasta llegar al pun- 
to mínimo, volviendo a subir a continuación, formando así una simusoi- 
de. Estos ciclos comienzan en el momento en que nacemos, y van progre- 
sando con distintos valores y frecuencias, produciendo intersecciones de 
entre unas curvas y otras. 

Los considerados períodos «críticos» (los días en los que el individuo 
tiende al accidente o a errar en su juicio) son cuando dos o las tres curvas 
se cruzan en la parte baja, especialmente son considerados como cruciales 
los días en los que que se cruzan las tres en su parte baja. Los cruces en 
el campo positivo (parte alta) suelen tener un efectos benefactor. 

El programa calcula los ciclos desde el día del nacimiento y muestra la 
gráfica de las curvas para un período de un mes a partir del día que hayas 
elegido. 
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REM_ £% "N” mm> GRAPHICS+ "A" 
BORDER 1: PAPER 1: INK 9: C 


G0 SUB 3500 
G0_SUB 3yue0 
LET totaln0: 
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1: T AT 
319 PRINT PAPER. 5 
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1al 

DR_nze*c TO (exc) +255 
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INK 2;AT 20, 


F INKEYSna'"''" THEN 60 TO 610 


¡"Pulsa una tecla para recomenz 


_50Y PRINT PAPER ?, 


1] A al Sa 
pá - - nr 
89 |] A Xx 
1] 0 ouw 
fort E A PZ 
a mn a > 
-quU NO -- .- A 8 -- 
DN + 0 .. 12) nx 
3 > Du -A wWw - A TI - 
Xx O YX 30 W0s---D +— EC > a 
rnza Z: --- Ou UN $ wa x + 
AH 3 H+ Aa0D ua «A -- — == QU oO: 
Qu T O A A E] MT 
Do 0. o. - 0058 ut .- q : 
DOANDO SA Fu  --DUA 1. As D+ -- 
DO a 7 uiuO +0 DaJa HA MN SX 
mao XC-- JDuHW  -- WuWO0 O Fr -10 8 
0w 08 iu: yO -9 --Ouju OuW A- > 
0aA?- AS ---- Ou +09  (0u FJ OY qm 
- (E xXx UC: 045 ua 41-- 0 -A hy 
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Extraterrestre 


La nave extraterrestre vuela sobre ti, arrasando el suelo a su paso con 
su rayo de energía, soltando enjambres de letales bombas. Tú vas movién- 
dote a través de su territorio, disparando tus misiles hasta que se agote la 
potencia. Cuando es necesario reponer ésta, cambia la forma de tu base 
y entonces debes aguantar todo lo que puedas y esquivar los ataques ene- 
migos hasta que puedas disponer de nuevo de los misiles. 

Como una dificultad más, el extraterrestre es invisible si así lo prefieres, 
no siendo de este modo identificable más que cuando dispara, haciendo 
más difícil aún alcanzarle con uno de los misiles. 


a: 


=] . 
E: 


l REM 1 FPF.STANLEY 
3 LET hs=0 


10 EORDER 0: PAPER 0: INK 5: TC 


E 
<Q 
Copa 
X<mn 


r 


EF 
21 50 306 75 
23 FRINT AT 0,20; "FUNT.MAX:" h 


1 


30 60 su6 71 
35 IF RND>.97 THEN GU SUB 2600 
49 IF AND<.05 THEN 50 9508 73 
50 IF 2=3 THEN 60 TO 3065 
51 LET z=2+2€ AND IN 5S273=2351 
AND 72:<2561- (2 AND IN 565275=2535 AH 
ND z>0) 
B2 PRINT AT 21,2; INF 3," 1 
138 IF IN 327006=251 THEN 560 SUBE 
5639 FRINT AT 0,1, “PUNTOS: j3 
70 60 TO 30 
71 LET x=x+1: PRINT AT 4,x," 
¡295 
72 1F x=22 THEN PRINT AT 4Y,x;" 
" LET x=0: LET Y=4+1 
A IF Y=21 THEN LET u=1: LET c 
=cC +. 
74 1F 2=3 THEN 560 TO 3505 
7S RETUEN 
73 PLOT Siéx+l2, (21-413: DRA 
D,- (21-41 :5) 
73 BGEEF .05,-20: BEEF .05,-15 
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p CRA OVER 1,0,-1 
18] 


+ 
mu 


4 fu 
a 


ía 


Matta 


AH 


£ 


Tu 
T 
ze 
iu 
Mm 


o 
IM: 0] RDIA< 
Ct 


y 
CGT 


UN 


A a 
H-=NA-—=EHfu 


Gl 


AS 
BRAIN 
A MNÍON 


MOTE HOO EDI 


y 
-= 


GU SUB 7: 

¡EEP ,001,3+20 

o a=3u THEN_ IF x=2+1 OR Z 
LET =3+INT (100.4) +10: ER 
dr " BEEP .2,0: BEE 
O RETURN 
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RETURN E 
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FOR a=-15 11 15 STEP 3 
FLOT zZ2+54+20,2 
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1: READ 4: PORKE x,4: NEXT x 
1010 DATÁ 9.0,580,255,BIN 1110101 
5,63,15,3,0,0,50,255,BIN ÚUlV19L1 
11252 ,61N 11110000,192,3,5,5,B1N 
ó1011181,113,561N 01100011,561N u 
1011131,8 
1020 CATA 1,68,136,16,150,0,4,534 
1025 DATA 129,255,S1N 10100101,3 
5,60,60,125,255 
1030 "CATA 0,130,195,BIN 01101109 
,124,55,16,185 
1935 DATA 5,3,5,5,5,25,0,0 
1040 RETURN 
2000 PLOT 0,935: DRAN 5,0: DRAW 3 
25: DRAW 26,0: RAN 0,3: DRALN - 
25,0: DRA 11,37: DRA 27,-57: D 
RAN 12,0: DRAW 0,567: DRAN 3,0: D 
RAN 0,-64: DRÁW 35,0: DRA 0,-3: 
RAW 25,0: DRÁL 0,3. DRAW 5,0: 
DRA u,sl 
2020 DRAL 
5,0: DRALN 
5,0: CRÁL 
a DRA 
. 0: D 


NO : PRINT "Pulsa “I' si 
E El Mar-ciana in 


ST 383 
EY " $1 Quieres que 
131bL 
IF IN ="1%" THEN LET 3g4=" 
¿ 50.-TO 40 
? IF INR = ye" TT : =" 
EA E a 'y HEN LET 3% 
33 60 TO 5 
40 PAUSE 
50 RETURN 
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Galaxiano 


En este juego eres el comandante de la única base que ha sobrevivido 
en la Tierra. Las flotas de naves extraterrestres se acercan cada vez más 
para la lucha final. Algunos bajan en picado, disparando con sus lásers, 
otros se quedan arriba en la pantalla lanzando incansablemente bombas 
que han de ser esquivadas. Si destruyes una flota completa, se formará 
otra nueva que continuará invariablemente los ataques de la anterior. En 
fin, que no tienes salvación. 

¡Pero al menos asegúrate de llevar contigo a todos los que puedas de 
esas agresivas criaturas! 


ABODEFSG AH 4 vol k MNOE 
SY dA AMAS 1x5 ¿AP 
QS Ra To) 
a R3aTou 
a EDIRDER Q PRPER Q 
15 LET ha= 
13 40 sU5 30uu 
20 50 SUB =009 
aL LET x=15: LETS 
3. LET m=ENCx*15 LET 
INT IERNCO+151 
30 LET a$= Ss y 
LET bá=" mi ma 
LET c5s=" 
38 LET ds=" NY N4 
40 LET dir=: LET 4=aQ 


50 LET hit=0 
30 PFRINT AT OQ,1%: “PUNT MAX. 00, 


ha 

100 FRINT AT 2.4; INR S,a5 

llu EEEF 401,30: BEEF 001,30 
BEER. .VUuL, 


SEEF 
Sy PAINT AT 2,4; INK S;b$ 
139 BEEP .001,40: SEEP .001,40: 


65273251 AND 
Ju ANDE xo 11 


«001,30: 


* 

E 55: 
lso PRINT AT ql 
27 

+ 


1000. PRINT A 
160 LET Yeg+dir 
170 1F 420 OR yel13S THEN LET dir 
2-d11 
175 PRINT AT L,mj,* . 
150 LET L=lel: LÉT man +AND Rd -AN 
Pa 
135 1F l=21 THEN LET LET d 


e 


NA a 
IF m>325 THEN LET m=1l< 
1F m<x0Q THEN LET m=l2 
PRINT INK dd, AT Limidá% 
PRINT AT 3. E 
LET 3=9+3: PRINT AT 39,h; "Y 
F 3q= 21 THEN_LET 3=353: FRINT AH 
Pa ¿ LET hish: LET h=INT 
6xi7+1 IF hlexos OR hlexte 
hl=x+1 THEN 50 TO 4Quu 
10 IF RND>.3 THEN IF d$:>'" 
'" THEN 60 SUB 3600 
300 60 TU 1uu 
POINT (x25+23, (21-11 +504+4 
l 560 TO 1050 
1005 IF POINT (x+58+23,15561=1 THE 
N LET hits1 
1010 PLOT x%5+25,5: DRAN 0,ldso 
2 


rs 
> MDEREREEN 


ZPRHOSA-10 


EDI Eno - 


fu Cl —. 


1020 BEEP .42,10 


1030 PLOT le 1¡x143+23, 


20h THEN 60 TO 20009 
N 
THEN 1F h=x+1 OR h=x 


xE5+23,5: DRA 0, 121-1 


Lo BEER .02,18 
20 PLOT QUER 1;¡x:58+25,9: DRA 
R 1;0, 1121-11 5-5 
30 LET da ix+2-m TO x+d-m)=" 
LET 5css 2420: PRINT_AT Lo x+1; 
: 15 STEP E: BEE 
PRINT AT Ll, x+*1l; 


má+ on 


NEXT 
FOR 


THEN 65 Tú 30 
ELOT m+5+158,121-11%89 


CRA A0,aA-121-L11%5 
FOR f=38 TO 4: BEEPR .0Ul,f 
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120 


NERT F 
3430 FLOT OVER 1,m458+16, (21-11%3 
2-1: CRAL GUER 1,09,39-[(21-1/%5 
POINT mi3+16,4 THEN GO 


RETLIRN 
AND h=x+2 OR h=x+1 To 


] RN 
3100 THE 3: PLOT Mi 35, (21-11%8 
-1: CRA 3-i 
312 O FOR f : “BEEP .001,f 


121-11%3 
1; A Lia 
3140 IF POINT me: ¿41 THEN 50 
TO ¿4000 
3150 , 
dana 
9 INR RND+5+ 


PRINT AT 
JUEGO"; AT 
IER TECLA PARA 


dura IF INREYA<>" 
E: FOR Fail TU 100. 

TO =1 

dura 0 TO 4050 
3000 FRINT AT 0,5; '5G 
N 3%, DUER 1: AT ú, 


3au10 FRINT 
otra! Los 
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aro Algunas 
isparando 
30:20 PRINT 
scuadron 
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RETURN 
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Perro pastor 


El hecho de que las ovejas sean testarudas no se puede cambiar. El co- 
rral en el centro de la pantalla es lo bastante grande como para alojarlas 
a todas confortablemente, pero las muy obsesionadas están demostrando 
un alto grado de desobediencia. Tu fiel collie Jim está haciendo lo que me- 
jor que puede, pero necesita de una mano firme por tu parte y de tus te- 
clas de cursor. 

Como en la vida, el tiempo se te va acabando y este inusualmente difícil 
juego te tendrá ocupado hasta el último segundo de tiempo mientras no 
consigas meter todas las ovejas en el corral. 

De todos modos, si te fallan todos los recursos, ya sabes... ¡siempre te 
quedará el del matadero! 
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1 REM by Robert Erskine From 
an original idea by Tom Hayward 
10 50 3UB 5008 
20 30 3UB 50089 
30 INPUT "Cuantos jugadores”'; 


408 DIM PIAR); DIM 514,2): LET D 


X=15: LET DYx=i5: BORDER 4: PAPER 
4: INK 4: CL5 
45 RANDOMIZE : LET DDml; LET_ZR 
Rei: DIM Ria): LET Rid)=-1: LET 
RI2)- 
46 50 TO 65 
50 CLS : FOR x28 TO 21; PRINT 
ATOX, O INK 07" "¡AT Ox, 3d; INK O 
0 7 NEXT Ox 
S FOR xe6 TO 9: PRINT INK UA 
T x,10;%] "¡AT x,20;" |": NEXT x 
56 FOR x=11 TÚ 19: PRINT INK 0 
AT OA 1O,X 30": NEXT 
¿87 PRINT PAPER 4; INK 4;;AT 10 
, A 
58 PRINT_INK 9/AT 8,10;17"; 
5,20," 1'3AT" 10, MA E 
69 FOR x80 TO 31: PRINT AT_9,xX 
¡CINK O U_U ¡AT O21,Xx; INK 0;' 
NEXT x 
81 RETU 
58 FOR Cel TO A: REM bucle 
jugadoras 
81 60_5UB su 
35 LET $ca30: LET 35(1,1)83: LET 
511,2)018: LET S(2,1)=3: LET S( 
2,2)816: LET 313,1)=4: LET S13,2 
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dal LET 54,134: LET 5(4,2)=1 
20 PRINT AT 0,0; INK 7; "JUGADO 


¡t 
el 

25 60 TO 180 

100 REM movimiento del perro 
0305 1F INKEYS="0" THEN GO TO 30 
119 LET I:00DE (INKEYS)-52 
0415 BRINT ÍNK 4; PAPER 45AT DX, 

A 

120 IF Il AND ATTR (DX,DY-1)=3 
5 THEN LET DYaDY-1;: LET DDx=2 

139 IF I=2 AND ATTR (DX+1,DY)23 
6 THEN LET DXmDxX+1 

140 IF 123 AND ATTR (DX-1,DY)=3 
5 THEN LET DXÑmDX-1 

150 _1F ]24 AND ATTR (DX,DY+1)=3 
5 THEN LET DYaDY+1: LET Ó 

180 IF DD=1 THEN PRINT PAPER a; 
INK 3; DX, DY; "mt" 

179 ip" S023 AN PRINT PAPER 4; 
INK DAT DX,DY 

175 RÉTURN 

130 FOR 2x1 TO 4: REM bucle 

OVea jas 

190 LET SX28(2,1): LET 3Yx51(z,2 
3): REM moOViM, OVe jas 

198 60 SUB 100 

200 IF RND>.78 THEN G0 TO 239 
210 IF RANO>.S THEN LET SXaSiz,1 
1+R(2): 60 TÓ 220 

215 LET Sxe8(2,1)+R(1) 

220 IF RND>.S THEN LET SY=Siz,2 
1+R(21: 60 TO 230 

2258 LET SYaSi2,2)+R11) 

230 LET Ex(ABS DX-S1zZ,1))/10: L 
ET F=(AB5S DY-Siz,2))/10: LÉT GaS 
(2,1)-DX: LET HeSiz,2)-DY 

235 LET 0:20: LET QERND: IF q>E 
AND q>F THEN LET 0x1 

240 1F G>8 AND 021 THEN LET 3Xu 
5iZ2,1)+1 

256_1F M>0_AND_O=1 THEN LET SYs 
Si2,2)1+1: LET RRe 

O AND 931 THEN LET SXa 

Zz, - 

270 IF H<0 AND 0u1 THEN LET 3Ym 
S(1,2)-1: LET RRm2 

280 PRINTOAT 5(2,1),S1Z, 

290 IF ATTR (5X,8Y) 385" Len 00 
TO 3108 

300 LET 512,1)88X: LET Siz,2188 


< 


318 IF RR=1 THEN PRINT. PAPER 4; 
INR 7;AT 512,1)1,512,2) 

300 1f RAs2 THEN PRINT PAPER 4; 
INR 7;AT 51Z7,1),51Z,2);5 

LET ORASINT (ANDER) +1 


] c+l: PRINT PRPER d; 
INK 7;¡AT 9,21;"Ptos. ";150-8C;" 
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INK 1: € 
ES PELA 
205 
"¡POt 
RET 

INK 7: 


NEXT q: 


AB 60, "PULSA 
PRPER 1: 


AT_0,10; "RESUL 
MENZAR" 
EN 60 TU 
10,15;" 
AND S(x,1) «10 A 
D 51x,2)<20 THEN 


+1 


"Jugador 


G0 SUB 4040 


PRINT 


0 THEN G0 TO 3008 
PRPER 1: 
Xx=1 TO A 


nm 
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uy 
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ru 
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$" 
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puntuacion es 
y 
TO 400: 

Y BORDER 1: 


1: 
PRINT 


HIM ADAGIV 
EI ES S - 
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o aa 12520 m1> 
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A O 
> CO, 


1o 
vo 


LED--47“"» CEDC 


A A 
OHOwW 1 9 2mH=> 
NX 2000-00 mA » 
0 E E La e E 


Z>m 


[a] 
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Parejas 


Este es uno para los niños, probando sus facultades de observación y 
memoria. Hay diez dibujos de distintos objetos mostrados en la pantalla 
durante un par de segundos. Después son tapados a la vista. 

Cuando elijas uno de los cuadros en que hay un dibujo éste será desta- 
pado y tendrás que encontrar el cuadro en el cual esté escondido el dibujo 
que haga pareja con el primero. Si los dos dibujos elegidos no forman una 
pareja, volverán a ser escondidos y no obtendrás ningún punto. 
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Dambusters 


Dambusters es un juego en el cual debes defender un embalse de los 
ataques de la aviación enemiga, armada de demoledoras bombas. Cada 
vez que una de éstas alcanza la pared del embalse hará volar una sección 
de ésta hasta que eventualmente el agua se salga y se acabe el juego. 

Tu defensa son dos cañones de rayos montados a cada lado del embalse 
y que disparan rayos convergentes hacia una mina que es controlada por 
ti. Puesto que los aviones están fuera de tu alcance, tienes que apuntar 
a las bombas que estos dejan caer, moviendo tu mina hacia arriba, abajo, 
izquierda y derecha y usando la tecla cero para disparar. Desafortunada- 
mente, tu arma ha de ser recargada después de cada tres disparos, de mo- 
do que la puntería es vital, ¡sobre todo porque hay un fuerte viento con 
tendencia a desviarte la mina hacia los lados! 
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Tres-en-raya 


El juego clásico jugado contra el ordenador. ¡Sólo que en nuestra ver- 
sión se le puede ganar! 
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Tráfico espacial 


Mientras viajas a través de un anillo de asteroides recuperando satélites 
perdidos (bueno, alguien tiene que hacerlo), eres atacado por naves enemi- 
gas que te lanzan misiles; puedes esquivarlas o atacarlas. Te puédes mover 
a izquierda y derecha pulsando «Z» o «X» respectivamente, y tu cañón 
puedes dispararlo con la «N», aunque haciendo esto último perderás pun- 


tos. 


Los satélites son recogidos maniobrando tu nave exactamente sobre ellos 
(por así decirlo, colisionando con ellos); ganas puntos por cada uno que 


consigas recuperar. 


La colisión con otros objetos destruirá tu nave, aunque al principio de 


cada juego tienes cinco vidas. 
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Comeparedes 


El objetivo en este juego es evitar que las glotonas creaturas se coman 
la pared frontal de un embalse, la cual se encuentra a la izquierda de la 
pantalla. Para ello estás armado de tres cañones (colocados en la parte su- 
perior) desde los que debes dejar caer bombas sobre los enemigos. Estos 
entran aleatoriamente por la derecha y gradualmente van comiéndose los 
ladrillos de la pared hasta que finalmente consiguen atravesarla, con lo 
cual habrás perdido el juego. 

El programa contiene otras propiedades más que tendrás que descubrir 
por experiencia. 


ABCDEFGHIJKLMNOGP 
DRNA AUX JRLMNOP 
RsSTu 
DR5STU 
ss 1 BORDER 0: PAPER 0: INK 7: C 
S LET hs30 
10 40 sUB 2008 
15 00 3UB 7090 
17 GO SUB 2800 
20 60 SUB 8000 
30 FOR im1 TO n 
40 LET xtildextild-1: IF RND>.8 
THEN GO SUB 1080 
0% PRINT AT yí(i1),x(i1); INK ¡+3 
69 IF ATTR (Y(1),X(1)-1)e22 TH 
EN GO SUB 2000 
89 NEXT i 
90 LET AGINKEYA 
100 IF NOT b THEN 1F q6<>"" THE 
N LET ER = (VAL q4)1+56+2: LÉT 51=yAL 
añ: LÉT f=0; LET bal: BEEP 
30: 1F 3053 AND 9<>14 AND E 
THEN LE bz 
11% IF NOT b THEN GO TO 38 
115 FOR ist TO 2 
140 PRINT Pg” 
1359 LET Para) f (21 THEN G0 
TO 5008 
160 IF SCREENS (f,9)="" THEN GO 
TO 3800 
170 PRINT - 
190 NEXT 


200 IF n<3 THEN LET cac+l: 1F 
:130 THEN LET nmnsi; LET cn0 PR 
INT AT 17,8, REFUERZOS ENEMIGOS! 

si fo_30: BEEP .09,1: NE 
XT 4: PRINT AT 17,8;" 


999 GO TO 3u 
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1009 PRINT AT Y(i),X(14); : 
1905 LET yiidayiid+1-(2 AND RND> 
1010 IF yii)*0 THEN LET_ y(i)220 
1020 IF yYy(i)221 THEN LET Yli)el 
1030 RETURN 

2000 PRINT AT Y(i),x(1)-1; BRIGH 

To BAM: BEEP_ .03,5: PRINT_ AT y 
(1),x()-1; BRIGNT 1;"%5%'": BEEP 
.03,8 

2010 titi 

2021 o iaa 
"TH va 

2030 ao e (RAD*20) +1: LE 

Tox(i 9 

2040 

3000 T 373 BRIGHT_1,'% 

Ep T TER 3: BEE. 

01,0: PRINT AT f,g-1; BR 
LgHT BEEP ,085, 28: PRINT 
3005 (Sc+s 12+f/3): P 
RINT 

3819 

3915 ¡a! n 

3820 IF fayii) THEN IF gax 0d) OR 
q Apta HEN 60 TO 350 

3030 NEXT 

3530 LET Y di) INT ¿RND*20) +1: LE 

T x(i)3229 

35819 60 TO 30 

4000 FOR 022 TO 5: PRINT AT yii) 

Yo INK 1;"M': BEEP .97,-20: NEX 

0 
4010 FOR oay(i) TO_ 20: PRINT AT 
925 INK 1;"M": SEEP ,07,-20: NE 
o 

4020 FOR 0=28 TO Y STEP -1: PRIN 

T RAT 0,5, INK 1,” MEN 
ru id 3-20 

4030 IF SCREENS (0,4)a" " THEN P 
RINT INK 1;AT 0,4 

40409 IF SCREENS (0,3)= THEN P 
RINT INK_ 1;AT 0,3; 

4858 NEXT 0 

4055 PRINT PAPER 1; INK 56;AT 4,9 
¿"Has conseguido ".s3c," puntos. 
4069 IF sc3ha COEN PRINT AT 68,0; 
PRPER 1; 8,"Enhorabuena || 
ES el EA 
3m5c 

4079 PRINT PAPER 1; INK 85;AT 9, 
¡'Maxima puntuacion conseguida ' 
,'“masta al momento :; "hs 

4889 PRINT PAPER 1; INK 6;AT 

0; "PULSA UNA TECLA PARA" Do dE 
A JUGAR " 

L30s IF INKEYG="" THEN 00 TO 409 
4198 CLS : GO TO 17? 

5008 PRINT AT 20,9; INK 5; '"xÉ": B 


EEP .1,-30: PRINT_ AT 28,9;" " 
su18 LÉT bro: GOTO 30 

da ol AT8,6; "DAM EAT 

7020 FOR f229 TO 4 STEP -1: PRIN 

TINE S ¡BT 2,1 "m4; BEER .03,-2 
0: NEXT 

3030 PRINT AT 2 BRIGHT, 15 Com 

: BEEP_ 03,8: SaTkT ar 2 sñto 
AAQIEAS UE ¿DEEP 03, Sadóe 
PRINT ' 

7038 CL <PRINT AT 0,6,"D AM 
CER 

Suda PRINT INK 6;AT 2,0; "Puedes 

evitar que los MONSTTUOS 5 coma 
n el muro del embalse ?7' 

ado PRINTS enzales bomb 
as desde cualquierade los 3 can" 
¿CHRA535 3, VER 1: "-ones que tiene 
3 en- cima del embalse con las t 
eclas La 

7060 PRINT INK 4'“"Ademas los mo 
nstruos te tienen preparadas ma 
35 sorpresas |! (son unos bic 
hos A a an su comport 
amiento) 

3053 BRINT AT 21,0; INK 6; "PULSA 
UNA TECLA PARA COMENZAR: +." 

7988 IF INKEYSC>"" THEN GO TO 78 
098 IF INKEYS="" THEN G0 TO 789 
7095 CLS : RETURN 

3000 DIM Yy(3): DIM x (3) 

8010 LET 5c=0: LET bal 

38020 LET nal: LET cr0 

3039 FOR ix1 TO 39: LET yii)e INT 
(RAD42O0) +1: LET x (11229: NEXT á 
8499 RETURN 
9000 FOR FaUSR "a" TO USR "i"+7: 
READ 9 PORE 1,9: NEXT f 

29819 DATA 119,119,0,221,221,8,11 
9,119,0,221,221,0,119,119,08, 
221,0,119,119,8,221,221,0 

23020 DATA 9,255,171,0,0,171,255, 
0,28,33,2558,255,255,258,9,8 

390309" DATA Y96,10,193,20,101,128,5 
1,140,194,40,57,24,130,40,67,18 
3040 DATA 83,31,15.7,3,3,1,1 
3982 DATA 2,196,40,23,232,16,231 
2300 FOR N 


139 TO 28 STEP 2. PRINT 
INK_5; PRPER_2,AT (+3 BA O 
eg 2 CA AT Fa, 2) : 

gues FOR (=0 TO 28; PRINT INK 1; 
AT A 

3610, COR A 19.91: ¡PRINT AT 21, 
Stzd. GRINT INK O 3AT 0,7; A 


93839 PRINT RT 0,23; 
93999 RETURN 
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Abeja gigante 


En este juego controlas un pequeño pájaro que va picoteando por los 
tallos de una hilera de plantas que crecen gradualmente hacia la parte su- 
perior de la pantalla. Si alguna de las plantas llega hasta arriba caerá una 
abeja tomando el néctar y habrás perdido el juego. 

El pájaro puedes moverlo a izquierda y derecha usando «Z» y «X» res- 
pectivamente y la tecla «N» es para picotear, sin embargo ninguno de los 
tallos puede ser picoteado dos veces seguidas. 
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70 IF time>hsS THEN LET hse=time 
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Logrado Sobrevivir 
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F INKEY ga" 
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uu OoT 120 +Z4L00 
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ie cd YI158): FOR ful TO 5: LET 
YiF) 

8919 PRINT_INK f+2AT y(f),f.8-5 
e "¿AT YI + 1 FAS -5;' 


¡AT Ya, 46-85; PS INK 4; 
AT Yi) +3, 46-37 "MU AT Yir)+1, FA 
8-3; “sy 

802% NEXT 


r 
35100 FOR f28 TO 3: PRINT AT f,0; 


: NEXT f 
8508 LET 29: LET x=e15 
8510 LET Pl e a 
38529 DIM a 1) 
": LET así Ms : Le? Mi 
MU: LET 0) WD": LET bimañí 
1): LET cázas 
3530 LET Ji: er Xxlux: LET film 
f: LET 129 
3540 PRINT Aa Fs q; FA. 
8550 derrinad: Der s 
Lizx2: 
3550 
38570 
8204 
3999 
239009 


30: DÓMIZE 

39020 LET yaB: E A FOR ful 

TO 29 

2028 BEEP .01,-18 

2030 PRINT ATA 1, bs '¡AT Oy1 
+1 rad 6:44" Ae y+1 
FO MO INKO 4 ye ME 

9035 LET yla 

9049 BEEP .0 

3050 IF RND>.$. FREN LeT yxy+l- (2 
AND RND>.5) 

9050 NEXT f 

20780 PRINT AT y1,f-1;" “¡AT yí 
+ t-L:" ó 

9088 PRINT INK 6;AT 5,6;" » PA 

UL STANLEY" 

91080 PRINT AT 6,0; INK 5;"Una ab 

Eja gigante quiere quitar-te el 

nectar de tus Flores y a- menaza 
con dejarte sin este tu princi 

pal alimento. Debes de im-pedir 

que las Flores (que n Pa-ran de 
erecear Lleguen a arriba donde 

su encuentra la hostil abeja. 

3200 PRINT INK 6;"Corta Los tall 

0s con el hacha Para que no cr 

ezcan tan aprisa (Ten en cuenta 
que no puedes golpear 2 vece 

5 seguidas la mis-ma flor.,)" 
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Heli-bombardero 


Después de todas las guerras intergalácticas será refrescante para ti vol- 
ver a la Tierra y combatir a una flota de helicópteros enemigos cuya mi- 
sión es borrar tu ciudad del mapa. Afortunadamente controlas la torre de 
láser de la ciudad y depende de ti impedir que las bombas caigan sobre 
la ciudad. Recibirás puntos por cada bomba que destruyas y aunque pue- 
des disparar a los helicópteros no recibirás puntos por ello. 

Mueve la mira de tu láser con las teclas de cursor y dispara con cero. 
El juego acabará en cuanto una bomba consiga llegar al suelo (después 
de haber destruido un edificio entero), o cuando la torre-láser es destruida. 


E G. DE GHIJRLMNOR 
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1 REM HELICOPTERO e md 
Y R,Erskine 198 
a SORDER U: PAPER Q: INK 7: C 
20 LET scx0: LET hs=u 
30 PRINT AT 0,9%; "HELI-BOMBARDE 
RO": PRINT 
49 PRINT : PRINT "Tu ciudad es 
ta siendo tacada por helicopt 
eros bombarderos. "Cuando una 
bomba ha destruido unedificio en 
tero y llega el sueloo cuando tu 
torra-Llaser 5 des- truida acab 
ara el ¿uego.' 
50 PRINT : PRINT "Mueve tu las 
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e intenta desinte- grar las bom 
bas en el aire con el at 
50 PRINT AT 20,0; "Pulsa una te 
cla para comenzaT+.. 
70 IF INKEYS="" THEN G0 TO 78 
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(MA eel SN THEN PRINT AT 
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Grand Prix 


Grand Prix te ofrece un coche de carreras, un difícil oponente (el coche 
dirigido por el ordenador) y toda la velocidad que puedas manejar. 

A diferencia del ordenador puedes usar dos marchas (primera o segun- 
da) y puedes elegir el tipo de circuito en el que quieras competir. Si te es- 
trellas, no sólo pierdes puntos, sino que además tu coche aparecerá en una 
posición aleatoria, de modo que tendrás que colocarte correctamente para 
poder continuar la carrera. 
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A gan cp Y a 

Puedes ac: 
t. 


E 


con 1 len 
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>La fia pa 


EDO 


¿ OVER 1;CHR% E 
INR 3:50 ARS CO 
4T ATO0,0; "TUS VUELTAS ! 
2 1¡L1ij; INVERSE 0; LAS 
cc INUERSE 1,Lz 
RESTORE 3400 
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Ratas Gigantes 


Tu misión es dirigir un hombre a través de un laberinto 
hasta llegar hasta la chica, mientras eres perseguido por una rata asesina. 
Tienes un límite de tiempo (este último es mostrado en la pantalla) en el 
cual debes rescatar a la chica, puesto que después de pasado el límite la 
chica se muta (es una rata, naturalmente) y a partir de ese momento cam- 
biará su posición aleatoriamente con el de la rata. Si esta última alcanza 
a la chica antes que tú, ella desaparecerá completamente, 

Al principio del juego te serán mostradas las posiciones en el laberinto 
de cuatro minas (colocadas aleatoriamente, por supuesto) las cuales ten- 
drás que memorizar puesto que durante el juego permanecerán invisibles, 
.. ¡a no ser que tropieces con una de ellas! 
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PMADGAJAR?R -- 
-“XVUOOOBOGA P 
Nm 


1 
P 
N 
K 
“a 
1 
de 

( 
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39. PRINT_ AT_INT 
(RND+15) 42; PAPE 
NEXT_i 
1: LET yw1: LE 
LET quee: LET e 


PRINT AT O21,8;¡"P.MAX.:“¡hs; 
21,18; "YI." Sr 21,23;"PTOS 


8"bdo- LET cx1 


pu 


D 


- PAIDOS 
FAX0D XU- JDAA 


Aa 
MATH MOZO DAFCTOOTZD 


F 
F]MZ 00D 


e 


D 


PL CU NR] pe 


SNS =» 


vr6 


; Bn RINT AT 21,0;C; 
IF cx9 THEN _ GO TO 35008 
IF EÑO 2.97 THEN 60 SUB 1600 
PRINT AT Xx; Ne 
IF INsEYqRó8! THEN IF ATTR 


” 


-. 
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MES 2ne THEN e =y-1 
S0 IF INKEYS3'"8" N = ATTR 
A AA THEN ver le E 
55 IF ATTR (Y,x)>12 MEN GO S 
UB 1500 : 
2587 IF (xa3b(1) AND 24 (1)) OR ( 
xx=b121 AND za1213) O (xX=eb(3) AN 
D yaa1i3)3) O (Xxx=b14) AND Ya (4)) 
THEN G0 3UB 3000 
250 PRINT INK 6;¡AT yY,x:bB(i): 6 
O SUB 1000 
270 NEXT i 
230 60 TO 200 
1009 LET flaf: p Es 
1918 "a roy THEN” Le abu Y: LET 
xf+, 

027 A foy THEN LET agu"£'": LET 
mt». 

A e 9Q:<x THEN LET aña a: LET 


P 
au 
nu 


"3 9>x THEN LET aga a: LET 
1359 PRINT INK 3;AT f1,91;," "¡AT 
1069 A ATTR (Y,x)83 THEN 60 TO 


3100 

1070 PRINT_AT_INT_(RND*10) +2, INT 
(RAD+15) +2; PAPER 7; INK 4;' 

1100 RETURN 

1500 LET acmac+1: PRINT AT 21,29 
j8c 

1591 FOR |21 TO 5: BEEP .01,l+5: 
NEXT | 

1502 LET c=509 

1508 LET Qx=INT (RND+10)*+2+1: LET 
waINT_(RND+15) +2+1: PRINT PAPER 
5; FLASH 1; INK 2;AT Q,u;"*" 

1519 RETURN 

18080 PRINT AT qui" "o LET leq; 

LET mev: LET Llzaf: LET mimq: LET 

e LET gen: LET qelzl: LÉT yam 

1605 PRINT AT q,w; PAPER 56; INK 

2; FLASH 1; "xk" 

1608 LET ta 

16109 RETURN 

2000 DIM até): DIM bia) 

2010 FOR ¡w1 TO 4: LET acti)eInNT 
(RND+£10) 42+1: LET b(i)mINT I¡RND+* 

15) +2+1: NEXT 4 

2022 FOR ¡27 TO Y STEP -1: FOR 1 

21 TO 4: PRINT INK i¡AT acl),btl 

JW: BEEP .01, (xi: BEEP ,01,-1 

+1: NEXT OL: NEXT 4 

2030 RETURN 

3088 FOR L=1 TO 3: FOR iw? TO Q. 

STEP -1: PRINT AT y,x; INK i;' 

: BEER .05,148; NEXT 1: NEXT Ñ 

3818 GO TO 36009 

31898 FOR |u1 TO 3: o 

STEP -1: PRINT A y 

: BEEP ,1,i84:; NEX 


157 


3 
IN 
B 
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2 STEP 2 
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.04, 
REEN 
1) (> 

1; 


LXOd »X-Ju 
PEO a ht: 


Ze 
BD SPDONSU *ON 
MNSTA O-04uU--ZIOW CO wo 
090 0-9 0O9L-1OS SC > CAOD-4UIADONO 
GUINTODD- € 


AFOARA A 
: 02380 ENS 


na - AO -¿HUS INFO OSO AJO NN 


”u E cecuc a 

>"BIDOO: 0O0-u » 
CD De -42C CD MA 
vu. CIHC-ICODOL: y 
PAGÓ MBA BES O 
CCOO SLV YA —a 
Sa HB ULCOI--EGIO 
PA Ct Js Di Goo 
”-QRL-OGO or Cra 
0) 4uU'Yo0o0””> e.Z 
UB ARA LUCUCAE D 

% U>-DOSD--DOUANO 
AACOCIMO DUNA — 
TWLCOO-a: , cm 
LCUUt) * la t10J3 
“ A A) 
ers ld Q- 
a EMDOY: 

a 0” sr+ 


- a. e -4- e 


Ft -2L£a0L70 —mMaOLOAZ 
pr a 

—U0 -XH HONSE-906H304-NCHI 
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""* THEN G0 TO 58? 
“Muevete con 


A MuUI)ZAHA 
HOc:-w4oHe 
X *.o DhkE-— 
Q--Lor nu 


—a00X 420% 0 w0íu 


0 "ye Qasoci O0uUHA 


TIA va 2. 
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DOoA4 aL 
-N-4NCw NEr 
004% aA0n 


FOR 


go 
BEEP y,x: 


"USR 
OKE y,x: 
,26,34,05 


COMENZAR." 
y 


INVERSE 1" "PU 
FOR 


a 
a 
w 
o 
FP 
jm] 
o 
z 
tu 
I 
P 


4; 
PARA 
o 
: RETURN 
TORE_ 9014: 
“h"+?: READ x: 
RESTORE 9208: 


OXY 0060 -Q 
TS 4 5 
059 _ XD -S4DID0DO0 
RSOWA0ONMAO +4 
SO-Z2000 -D0O - 
Mos P “ROBANDO + 


9,255,28,2 


5030 PRINT_INK 
LSA_UNA TECLA 
3095 IF INKEYS 
23059 RETURN 


El cartero 


Tienes el tiempo limitado para recoger una carta de un buzón y entre- 
garla en la casa, evitando ser mordido por el perro. 

El número de buzones puede ser cambiado en cada partida y las cartas 
han de ser recogidas del que esté destellando. 
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BC EFG x N 
OSIRIS RIERA NEO OA 
RSTOU 
MONT U 
—” 1 BORDER 7: PAPER 7: INK YU: C 
2 REM € Postnan-Paul Stanley 
3 55 508"3 
sU 2303 
109 G0 3UB 5598 
20 GO 3UB 7000 
50 60 3UB 5008 
70 BEEP ,1,0 
89 FOR im1 TO 

180 IF INKEY Gx" Ss THEN IF x>1 A 
ND ATTR (Y,x-1)<>58 AND ATTR (y+ 
1,x-11<>53 THEN _LET eds LÉT 

dd Fo LET bai2la”? Ri: LET 

x3xX- 

110 IF INKEYA="8" THEN IF x<29 
AND ATTR [y,x+2):,58 AND ATTR (y 
+1,x+2)<>38 THEN LET a$= Que: LE 
T parida RU: O LET bEi2la E: LeT 
XxX» 

120 1F INKEYA=2"7'" THEN IF yl A 
ND ATTR (y-1,x):<>58 AND ATT FE 
1,x+1)1:<>58 THEN LET ags"/f ": LET 

Ad: LET bh12)e "RR": LET y 
2y- 

130 IF INKEYSK="6" THEN IF y<17? 
AND ATTR (y+2,Xx):<>58 AND RTTR ( 
+2,x+1)>58 THEN LET año A ": L 
T bsitla""": LET bhi21ebg(1): LE 
T guy+l 

140 PRINT AT y1,x1" "¡AT _yi+1 
Med: O ENE LAT Y x jam; AT y+1 
ADE Li): dy LET ximx 

200 1F at En Ñ ÍF xahx OR Xzhx 
-1 THEN 1F yahy THEN FOR fa1 TO 
10: BEER .01,f: NEXT f: LET 5€as 
5qá PRINT AT 21,7;5c: 00 SUB 50 

250 IF NOT let THEN IF xx=px OR 
X+lepx THEN IF yxzpy THEN LET let 
21: BEEP 06,20: LÉT scasc+10: P 
RINT AT 21,730: LET OxFN al) 

300 NEXT i 


500 LET dyzadu+ dy <y+1)-(dy>y+1) 


E dx ex THEN LET dxedx+1: L 
z= 
a IF dx >x THEN LET dxedx-1: L 


ET 

580 I* ATTR aaa eo OR RATTR 
(dy , dx) =158 OR y T (dyY,dx)=58 T 
HEN LET Uxdx: LET dadná rel 
dxX>x?1: IF dx=u THEN LET dxudx+1 
300 PRINT INK 3;AT AY Ax 


NK 0;AT_dyl,dx1;' ¿AT dy,dX;d 
310 LET d Lady. GET ¿máx L T 
t=t-1: PRINT_AT ; e 


120 THEN 60 TD ET 
a IF dxxzX OR dxXxex+1l THEN IF d 
OR dysagal THEN 60 3UB 6uu 
23 9 60 T10 
5000 PRINT INK 2;AT PY,Px;: "A" ¡AT 


+1, ñ 
503 LET Lía í¡RND*Lb) +1 


su 

5010 PRINT INK 8; PAPER 3; FLASH 
a YUF)+1,X 1 
5020 LET pyuzyif1: LET pxexitf) 
5030 LET hxe*INT (RNDx*14) *2+1: LE 
T hyaINT (RND*+9) *2+1 

5040 IF ATTR (hy,hxiz53 OR RATTR 
(hy, ,hx12158 THEN GO TO $589 30 

5uS9 FRINT INK 3;¿AT hy,hx;' 8" 
5100 RETURN 


5500 INPUT "Cuantos OS E 
Tes que haya (entre 1-36) 


5790 IF l|b<1 OR 1b>36 THEN 60 TO 
578 


5800 RETURN 
6000 FOR fz1 TO 12: BEEP .07,f: 
PRINT AT 4Y4,x; INK 1; '"Qme'";AT y+1l, 


> 3 

ser, DEEP 05,1: PRINT INK 1AT 
"AT y+l, 

cózo BEEP .07,F: "PRINT INK 1;AT 

¿ EJ ¡AT y+l, 

ése. BEEP .05,Ff: “PRINT INK 1;AT 

des A ¡AT y+l, Xx 5N 

040 NEXT f 


5us5s9 a AT Y. x;' “¡AT y+1,x; 


8060 DEP EL=50: IF 180 THEN GO 
TO 800 
5270 PRINT AT 21,27%; " 
5880 _LET Yu1?: det inde: Lor yla 
i Xx 

290 LET dyz1: LET dxwl: LET dyl 
edy: LET dxizdx 


72008 FOR f20 TO 19: BRINT, INK 4; 
BT (0; "DB "¡AT f,31;* 

7010 FOR _f31 T0'30: RIN EN q 
AT CO, f ¡“OU AT le, f: "GQ: 

7068 DIM yilb): DIM A 

7108 FOR fail TO lb 


> >. 3 HQye £ L£ A AO CD 1-0 
rr -= al Fr J3 e se as - Acs DO: ev -9 
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s5 

3290 DATA 125,195,189,165,1585,18 
9,195,125,32,125,255,126,85,88,1 
3300? T 

RINT INK 2; CAR 
TERO 9" o 

2250 PRINT '* % Paul Stan 
Ley” 

2300 PRINT INK 1*'"Primero has d 
e recoger una cartade el buzon i 
ntermitente.Despuesdebes de entr 
eygario en la Casa de color purp 
ura.” , 
9400 PRINT "Tienes tiempo Limi 
tado, y 5si eraesatacado por el per 
ro perderas tiempo valioso." 
9500 PRINT INK 3''"Muevete con 1 
3s tecias 5-3," 

39600 FRINT “*“"Pulsa cualquier te 
cla" “para comenzar ,..' 

97800 IF INKEYS2"" THEN BÉEP .91, 
20: PRUSE 10: 60 TO 9708 

3999 CLS : RETURN 
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Nochebuena 


Este juego es una carrera contra reloj para Santa Claus, que tiene que 
entregar los regalos antes de que los ocupantes de las casas se despierten. 

Maniobrando el trineo de izquierda a derecha puedes recoger los rega- 
los que te son entregados por tus ayudantes. 

Puedes lanzar los regalos por las chimeneas pulsando «N». Cada vez 
que entregas uno correctamente los habitantes de la casa se despiertan y 
encienden las luces, a consecuencia de lo que se derrite la nieve en el teja- 
do de la casa a una velocidad proporcional a la actividad que hay en ella. 
Cuanto más trabaje Santa Claus, más prisa tendrá que darse, para poder 
completar su trabajo sin ser visto. 


ABCEDEFSGHAI $ KLMNORP 
AE O A MU 
URSTOI 
DRSTU 
E 1 PAPER 1: INK 7: BORDER 1: € 
L5 
2 REM AXARRAARRERRA AAA 
3 REM *x Y PAUL STANLEY ++*e 
4 REN REARRARRAA RARA 
5 60 5UB 30089 
7 LET hs=0 
10 G0 3UB 300u 
15 LET 5k=.96: LET s=0 
20 LET ag" ". LET bás'd': LET 
cá= "d” LET x=27 
21 DIM d5 1289) ' 
25 LET g=1: LET h=INT (RND*2=83) 
+2 


26 PRINT AT 0,18; "PUNT.MAX.:%; 


27 LET p=9 E 

238 FRINT AT 0,0; "REGALOS: "5 

30 IF INREVá="x" THEN LET xzx+ 
2 AND x<271: LET agz="£": LET b5% 
="A : LET ess" " 

35 IF INKEYS="Z" THEN LET x=x- 
(2 AND X>1): gr sd "o LET ba 


40 PAINT AT 10,X=8;* “A 
T 10,x: INK 2:38; INK 0; bs; INK 


4 

5 IF e p THEN_LET Hb ra PR 
yl AT 9-1,h; ¡AT 9,h; INK 8,” 
u' IF 3:10 FHEN' IF hax+2 OR hzax 
+1 0R h=x THEN LET p=1 
1, 


50 IF E THEN_IF A (y+ 

hja3":" THEN_GO TU 1 

65 IF 45 THEN PRINAO RAT 12,h, 
“o o": LET 931: LET h=sINT (RND+28) 
5] 


+ 
“78 1F p THEN IF INKEYS=2"n" THE 
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N LET 39210: LET e -l+ (ag "bb )+( 
3 AND Cáz= "4" LET pzQ 
30 IF AND>5k THEN? LET qeINT_ IR 

ND*71+1: LET exINT (ANDx 4) PRIN 
T PRPER 3¡AT_ 18,q44-e+1; ts LET 
d$lqidé-2)="p": IF diiqré-3 TO q 
+4i="pppp" THEN GO TO 2000 

99 50 TO 3u 

1400 PRINT AT 12,h," " 

1010 IF 3CREENS$ (15, hi="_" THEN 
G0 TO 28 


1915 LET s=5+1: PRINT AT 0,0; "RE 

1930 PRINT AT 25, ¿Aj INK 0; PAPER 
AT 19, y 

1022. FOR F=1 +o' 3: BEEP .001,30: 


1935 FOR f=zá TO 28 5TEP 4: IF <= 
REENS (18,f)2"_" THEN HMEXT f: LE 
T sk=sk-.02: CU5 : GO SUB 2038: 
G0 TO 28 

1030 «0 TO 25 

2000 IF oa (198,94) <>"_" TH 


5000 RESTORE 5100: LET Zz.3: LET 
(2,86: FOR f1 TO 26. READ a,b: 

BEEP a,b: NEXT f 

5100 _ DATA 7,5,72,6,cC,6,272,6,7,5B,C, 

6,72,05,2,9,2,2,2,4,1,5,2,6,2,7,2, 

e e RA O E DA AMA TA ZA INE 0 0 A E 

9,2,7,2,4,0,2,0,82 

5200 RETURN 

56000 FOR f=10 TO 1 STEP -.5 PRI 

NT AT F,X; INK 2,28%; INK 0;b%, 1 

NK 2;c8;RT Fel,x;," ": BEEP .u0 

5,2%f: NEXT F 

6002 IF 5>hs THEN LET haues 

5005 PRINT AT 1,x;" ña 

56005 PRINT AT g,h;' " 

6810 PRINT FLASH 1¡AT_18,9%+4-1; 

INK 0, PAPER 6;"__"¡AT 19, q44-1; 

sE PRINT AT 9,4; FLASH 1,"F 1 

N DE JUEGO" 

5045 60 5UB Sud 

6050 PRINT AT_ 11,2; FLASH 1; "PUL 

SA CUALQUIER TECLA PARA. "'AT 12 

¿23 "VOLVER A JUGAR ... 

50569 IF INKEYS<>"" THEN CL3 : GO 

TO 10 

8070 50 TO 56059 

Rao PRINT INVERSE 1;¡AT 5,0, e 
NOCHEBUENA 

INUVERSE 0” a PAUL 3TANLEY 
RAUSE 250: CLS 


3010 PRINT ''"Se acerca ya la hor 
a de mediano-che el dia d2 noche 
buena Y SsantaClals viene con ret 
asno. Tu de- bea de hacer de San 
allas. y re-partir regalos que 
e re 


«gados por tus ayuda 
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E< DONA GO e 


m 
z 


ro 


"DJ. WWE 
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Chi Li dy o 

6: 0=m 

D a ——rr 

D MroJIb<an - 
2U0Y4T3 
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-- IZQUIERDA 
-- - -DERECHA 
LUN REGRALO_ " 


RETU 


TORE_98 
A 


9,0,1, 
8, 2s” 
3,28, 
15,56, 


IF INREYSA="" 


IF INRKEYS<> 
IF INKEVA=" 


y 
w 


bh Do 
nm 

MO —' 
ro DJ 
3 wú5ó-_ú 
3 
Do ay 
e 00 
E al 
CIJTaw 
Ou 
TE: Jas Qe. 


ecu 
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15 
CODBb=> 
D ICO” Aro 
QM --w 
ao — 
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ena 3 
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um 
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amrzáa Ec 
-yI00=>2 TIw: 


mm. 


ULSA UN 
Ma 


THEN GO TU 350 
THEN 60 TO 503 


CIA y — 6 WwD 
HDI-0mM- 0 3IMú-= 
DAD: — 
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nDIr Cw4vco 
Tem — — 
vu O 
— — HAD Y y y 

1) 
30-CAa0bb — -0ñ5mDOosy 
DM pJrbas »oeIJDo- 


ja 
DEJAR CRE 


¿PULSA E 
COME 


“5 THEN GO TO 30 
" THEN GO TO 389 
RN 
18: 
READ 


o, ¿0 
3, 124 ¡36 72,63,1 


3,124,1556,72,535,1 
16,562,55,18,2532, 


FOR 
Xx 


2USR "a" 
OKE y,x: 


3090 DATA 0,125,192,224,240.248, 
252,254 
3100 DATA 255,220,73,85,64,0,9,0 
3110 DATA 24,50.B1N o eiadio:só. 
24,126,2535,255 
3300 FOR x=2 TO 28 STEP 4 
39310 PRINT INK 3¿AT 13,x+1;":0%; 
PERER 3 INK SAT 140417! EN PA 
Lp 15,x;' e: , 
PAPER Mar BN PATA 
PAPER 1) INK 3" "¡AT 18,x," 
E aT lla ¡AT 20,x: 
“¿RAT 21,x," 
S20 NEXT 
3400 FOR xm48 TO 208 STEP 52: OU 
ER 1: INR 3: PLOT x,0: DRAV 0,3% 
¿ NEXT x: INRK 7: QUÉR [vo] 
9450 FOR x=24 TO 216 STEP 32: PL 
OT x.32: DRAU 15,8: NEXT x 
9500 ' RETURN 
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Tutor de código morse 


Este debe ser el tutor de morse definitivo. Tiene todo lo que pueda ha- 
certe falta para aprenderte de memoria el código y familiarizarte con él 
y después practicar hasta adquirir suficiente experiencia como para traba- 
jar a la velocidad de un profesional. 

El programa te ofrece un amplio menú de opciones, incluyendo un lis- 
tado completo de letras y números (tanto en texto como en código), la po- 
sibilidad de convertir tus propios mensajes al código y una desafiante sec- 
ción de prueba. Además tienes la oportunidad de ajustar la velocidad a 
la que se emite el sonido morse, de modo que sea posible adoptarla a tus 
propias habilidades. ¿Qué más se puede pedir? 


A ——————— 


10 POKE 23688, 255: REM asegura 
Que esta en modo "mayusculas" 
20 REM Tutor MDRSE Y Robert Er 
skine 1933 
49 GO 5UB 3508 
pS PRAPER 1: INK S: BORDER 1: CU 
110 PRINT AT 1,11: "OPCIONES" 
120 PRINT 
140 _PRINT "1 Escribir un mensaj 
158 PRINT_"2 Mensaje solo con $ 
150 PRINT '3 Crear mensaje prop 
10": PRINT 
170 PRINT "4 Seccion de prueba" 
: PRINT 
1509 PRINT "S Cambiar Velocidad” 
: PRINT 
190 PRINT "5 El codigo MORSE" 
nl IF INKEYS="1" THEN 60 TU 20 
pa IF INKEYS$="2" THEN 60 TU 20 
el 1F INKRE“$2="3'" THEN GO TO 20 
249 1F INKEYS=x'"4'" THEN GO TO 50 
250 IF INKEYSK="5'" THEN 60 TO 50 


vu 
2080 IF INKEYS="5'" THEN GO TO 70 


vu 

290 60 TO 210 

600 CLS : PRINT AT 1,6; "CAMBIAR 
VELOCIDAD ": PRINT 

11080 LET pd LET vKzxqh+vS+h$ 
1010 FOR xa: DO LEN vKA-32 

1020 IF 0:20 THEN PRINT AT 21,0;,v 
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$: ix TO x+310 

1025 LET Ma iia 

1030 FOR yel T 

1040 IF T>64 FHEN BEEP cíCOoDE lu 
$ (x+31) 1 -54,4),25 

1042 IF 155 AÑD Tod? A BEEP 
CICODE (YB LxR+311)-21,41,25 

1045 NEXT u 

1048 PRUSE 3 


1950 NEXT _x 


au3a ; NT AT 2,7;"CRERR U 

N_ MENSAJE" 

2040 PRINT 

nensaje «un 
La pantalla 


INPUT vs 

CL5S : PRINT "Quieres que el 
aye Ek tantoimpr eso como € 
Da] “3 ás 0" "NN" "=no)" 
PRLUSE 130 

IF INKEYS=""' TMEN GO TO 207 


IF INREY%="S" THEN 0 TO 21 


0duce tU propio 
parte inferior de 
espues pulsa ENTE 


TUD 


40 SER guS So-=068-. 
6 


PRINT RT 1,10; "SECCIO 


“UFDGEJUIE*R-OwD 
vOo- GOMGOGAEE 
y] 


JE 


HHHH ww 


RAJ 


ODRaANM 4D=-= 


ag 0 Z DOM Pu Gu => 


bi. 


z 
ODDD - 5-02 


mo A 


c 
6 <|My 704040 AHORA TO 


o 


H 


z 
mM .: 


HN AADURH_ HHH 
o 


PODORau 


ARA AURA ACI -- 
£ó DS 10 


13 
-==ZÓE OD 


QPHEC 


ps) 


xel 
Bz=1 T 


Gebrrarn+rrReES SAGA a 
—P UN SURF TOGO-OTAAeY a 
+ 6560->G0GMAGO-GMADGOE 


mon 
= 
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170 


0 IF Ba2 THEN LET ve(INT (RND 
3411 +25 

IF 61 THEN PRINT CHR% (v+86 
IF B=2 THEN PRINT CHRSA (v+2 


PRUSE 59 


cu 


POINT NS: 


N 

PAUSE” 50: 60 TO 10 

IP paa THEN 60 TO $390 

PRIN “Primero aparecera el 
190 e yd el caracter 
sonido.": PRUSE 190 

FOR x=1 TO 
a 
CFF 


COUURRNNV?>— ++. 


15 
F B=1 THEN LET vzINT (RND+* 
e THEN LET vwveilIlNT (RND 


torINT CA iv): PRUSE 509 
FOR y1 TO 5 

BEEP civ,y),25 

EN Y, 


RINT 
=E Bz=1 TñEN' PRINT CHAS  (v+5 
IF B=2 THEN PRINT CHRS (v+2 


NEXT x 
PRUSE 504: 60 TO 
PRINT "Primer 
nido seguid 
cter y del so 


OP UF EE0 0-41 O JA UA aos - Y SN 
SUS E c60-194660606060O 


JS a 
a 


wo 
AAN Si 


ú 
0 
ni 


E x=z1 TO 15 
=1 THEN LET v=zINT (RND+ 


2 THEN LET VecINT (RND 


L- > 00 DIN EU HE 


Y 
[0] 
LH 
mn] 
o 


o 
EN” PRINF CARS. (v+D 
EN PRINT CHRS  1v+2 


NEXT 
ea se: 65 TO 100 
ea PRINT_ RAT so Pao BIAR 


EFMGONFE-- 
GGD=<2 Er GaEA - 


t 

poes cion. para bad 
daddel morse. Los valor 
5 ue 1 aumentaran la 

T "imax.=9 1 

29 THEN GO TO 020 


gg AOO GAIA ANO ANO E A 010 E AE AU NN AA O e UU MODULO A UNCAF Ue 01 O 


SO VW ECM PE BREPRPERPIPEGO LIO LI IO e IO O a 


Gu — 


spera,por favor": 
L 


5040 PRINT "E 

ET $=5%+A: LET = 13%: 60 SUB 3005 
5050 0 TO 100 

7000 2L5S : PRINT AT 0,7;"EL CODI 
GU MORSE": PRINT 

7UIV FOR Xa1 TO 36 

7020. Rd x>26 THEN PRINT CHRE (Xx+ 
21: 'CRLIX), 

7040 NEXT Xx 

7950 PRINT : PRINT AT 20,0: INVE 

RSE _1;"PULSA CUALQUIER TÉCLA" Bd 
NUERSE 0, INUERSE 1; “PARA JOLUER 
AL. MENU” 

729580 PRUSE u 

7070 G0 TO 100 

3500 LET s=.1: LET |:z.3: LET 0x0 
¿ LET x$="" 

3519 LET f4-= "ESTE ES UN MENSAJE 
PARA DEMOSTRAR EL FUNCIO 
NAMIENTO CE — ESTE PROGRAMA (TUTO 
R DE CORIGO  —MORSE) EL ALFABE 
TO COMPLETO ES COMO SIGUE A CON 

T INUADCION ABCDEFGHIJIKLMNOP 
ORSTULIJXY Z Y LOZ NUMEROS SUN 

0123455759" 

3720 LET qs=" 

3530 LET h$=" " 

39000 RESTORE : DIM c1(36,5: 

39010 FOR xx1 10 35 

39020 FOR 4=1 TO 5 

90509 READ c1(x y) 

300 NEXT y 

345 NEXT x 

3050 DATA 5,1,9,0,0,1,5,5,5,0,1, 
5£,1,5,0,1,5,5,0,0,53,0,0,0,0,5,8, 
1,5,0,1,1,53,0,0,5.5,5,5,/0,5,9,80, 
9,0,5,1.1,1,9,1,5,1,0.0,5.1,58,5, 
8,1,1,9,0,0,1,5,9,0,0.1,1,1,0.0, 
S1Ll.L1s5,8,11L.5,1.0,58.1,5,0.,.0,8. 
5,5,/0,0,1,0,0,9,9,:2,3,1,0,0.5,5, 
£L,D0,5,.1,.1,80,0.l1:8:5.1:¡B,L,5,U 
L,9,L,1,5,5,9 

3470 CATR L.L,L,L.L.sS.lLjl.l,l,s, 
Sjlrtr.Ll19,2,.S5,11L,1,8,13,.3,6,1,5,58, 
5,15,/5,1,53.3,5./38,81.1,5,58,58,lLo.loaLl, 
3,33 ll lilolos 

3030 DIM c4(35,9) 

9099 FOR xz1 TÓO 35 

3100 READ cálx> 

3110 CATA "a=U, 


eizo NEXT x 
3130 RETURN 
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Gansos 


Vístete de cazador, engrasa tu escopeta y dirígete a los pantanos. Los 
gansos han regresado del norte y el congelador está vacio. No te preocupes 
por las piezas abatidas; tu fiel perro se ocupará de ellas después de acabar 
el juego. Sencillamente dispara tu arma y luce orgulloso las muescas en 
tu cinturón. 


AREgE BH E Ae 
de al Y ATA ROL () 0P-P 
BR3TO 
BDR2TOUO 
i PA 
10 REM *% FLYING GEESE 
21933 MICHREL BENS 
20 60 TO $580 : A 
25 REM **RUTINA DE VUELO. 
DISPARO++ 
30 FOR x=0 TO fr: LET dix)=ei- 
X+SGN (0-14 + INT ERAN terdd: PRINT 
RAT Oh(x),9(x1-0; io FOR z=0 T 
DO fr: LET f=-f: PRINT AT Rd de 
xXx)" “"jiaftth-f);: PRINT AT dix), 
29," ": NEXT z 
40 1F PEEK 23556:=55 THEN FOR y 
=0 TO tw: PLOT OVER 0;en,tf: DRA 
W DUER D;fr,th: PRINT_ OVER 0;AT 
5 this NEXT Y; LET SH=5H+0 
INT INVERSE O¡AT 0,5x,5H;: 1F 
(Xx 1 ev 3(x3=tv THEN LET B=bB 
: PRIN dix1,9 1x1 "3. IN 
E ; A = 8 LET 9 (x)=09-t 
LE 0; FOR Y=díx) TO ni 
NT AT ota, Fo! "¿AT 
AT O Fo; “[ "¡AT u+o,F 
y: PRINT AT ni-0,fo 
Si TOR NAO, ta 
5 E ado e o LET 3qíx)=9g lx 
tw: IF. 9qíx>tn THEN PRINT AT h 
(1,9 (0x1 0," AE ME: q (x1=0 
B0 NEXT x: 1F 3H>339 THEN 60 TO 
300 
70 60 TO 30 
100 Eo x21 TO 4: LET híxis1l: L 
ET EN =x3i5-%: NEXT x 
110 CLS : PRINT INVERSE 0;AT 0, 
¡UD sP y U j 
TT 
2: 
d 


130 PRINT AT 20,0; PAFER 4;" 
172 


"j PAPER 1; e 
PAPER 4;" 


¿ INK Si; PAPER 1;” 
APER 4, 
130 PRINT AT 158,1: '"9 "¿AT 139,1," 


h v; 

140 60 TO 30 

299 REM **RUTINA FINAL JUEGO*+* 

300 IF B>T0T THEN LET TOT=B 

310 PRINT FLASH LAT 9,10,%=--- 
FIN=--= ", FLASH Y; INUERSE 1;AT 

11,4;" PÚNTOS: ";B;" CON 100 DIS 
PAROS' 

320 PRÍINT AT 13,4; INVERSE 1;"P 
UNTUACIÓN MAXIMA: ":TOT 

330 INPUT FLASH 1: “PULSA ¿ENTER 
> PARÁ VOLVER A JUGAR" ¡X$: L 


ET 5SH=0: LET B=0: GO TO 10u 
570 REM *** INICIAL IZACION+*% 


5530 FAFER 1: INR 7: BORDER 5: € 


L3 
590 CIM afld,2l: DIM dídi: DIM 
2141 ,- (41 
5600 6: LET hy=30: LET TU 
T=0: 0, LET fis=ilS: LET_ tv 
=12: 11: LET Mis18: LET.t 
p =] LET_ tf=34: LET 
k 4: LET ei=3: LET 
LET tw=2=: LET th= 
T tn=23Y9 
vi REA 3,b,c: FP 
+X, PORE USR "ex, 
e O NEXT 
is 


E 
3 

OR 

b: PORE USAR 
de 

E 


A A 
520 LET ag 14) =" de" LET a$itea!l=" 
" 
530 FOR =D TO 7: RERD a3.b: FOR 
USAR "OU +x,a: PORE USR "N"+x,b: 
NEXT x 
5640 FOR x=0 TO 7: READ a: PURE 
USA CU +rx,a: XT x 
5650 FOR x=4 ñ 3 PORE 
USA UB U4x, a: EXT Xx 
5650 FOR x=0 TO 7: READ ¿b: POR 
E USAR "ll "+x,a: PORE USR "P"ex,b: 
MEXT x 


620 60 TO 100 
MEE CATA” +*DA Tu 


E- TU 


LA 


E- 
WO JOR 


CATA 65,15,132,353,4,51,4,16 


- PRORUERLA 
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Suma de palabras 


Este programa pone a prueba tus procesos de pensamiento lógicos: te 
enfrenta a una suma que ha de ser resuelta. Quizá pienses que no es tan 
difícil, pero en este caso algunos de los números han sido sustituidos por 
es un número sino una palabra (formada por nú- 


letras y ¡el resultado no 
meros)! 


El programa te coloca las letras o los números aleatoriamente en cada 
suma, y la respuesta siempre la encontrarás si sigues el razonamiento lógi- 


co y aritmético. 


3 BORC: 
REM 


40 CIMA 
51101 DI 
43 LET 
54 LET 

EV READ 
THEN LET 
0 -LET 

50 B0RC 
ET Ta:  L 
T Ss IF 
LET 


EBEEP 
REM 


Ent 


Y) 
Di 
a 
r 
D 


LA 
E 
Zz 


El — 
HERE =L 
ue Eu. 

Guanta 

mm 


UNDER Pererre 


D 
OMT ZZZNHRHTZ 


APDO AA 


SST AE SNE] 
tancmmm 


0%) 


TS 


ER 8: 


El 


ELO, 


M 
Es=" 
N=1 
ie 2 AF WIN) t11="1 
H=H-1: 560 TO 30 
N=N+1: 60 TO En 
ER E: FAPER S: INR ld: L 
ET NN=14+1INTC INF+ENDO LE 
IB INN1 156120" " THEN LET 
EAN TO xi 
. 1, 16 
** UTRERA VALORES ALEA- 
TORIOS FARA LETRASi*++* 
PRINT O INK 7; PAPER 1, 
de LETRAS 01953 M. BES 
x=1 TO LEN FSA 
ABILXI PELA 
21 THEN 50 TO 140 
Zz1 TO :-1: 1F ASx1=AS 
LET Rixi=A1(Zi su a 13 
(s1=INT (RND+101 
10:=0 THEN 560 TO 1l4n 
1 THEN 560 TO 130 
=1 TO x-1: 1F Rixl=sADY 
TO 140 
ES 
P=0 
=86 TO 15: PRINT AT 13 
¿BH NEXT x 
RE 


Y FOR x=LEN FS TO 1 STEP -1 
D LET T=zT+R1x1:<10tP 


30 LET_ F=P+1 

240 

50 293 110004 INT" (RNCz=S00 
IN] 

250 =T-3 

ru ¿B=3TRG S: LET T%G=5TRS 
Tis kE 3TRG$_ I 

25 =1 TO LEN TS 

300 '=1 TO LEN 15% 

320 Uri=TBLxX0 THEN LET Cix 
dl: BUY ABLA 

340 y 

3550 E 

350 LEN (Tgl 

370 LEN 15$g! Ñ 

dan TBrxi THEN LET rx 
Ad HBO 

d20 

430 

440 LEN T5 : 

450 THEN LET TA%(X)=A%4 
EN] 

489 ES 

430 REM 24 IMPRIME SUMA EN 

+4 PANTALLA 
4295 INR 1 
500 PRINT AT 7, ,22-2 


BE 3 “ERIN 
ET 

E: : 56; Fo 
ES 7 . ¿X45D: ER 

si Ra 

Si I 

530 FRINT AT 12,22-2*LEN T%;: F 
OR x21 TO LEN T4: BEEP .1,x+11: 
'RINT TB 1x0 CM uo NEXT Ox 

340 PRINT_ AT 153,0; INVERSE 1;"P 
ULSA ESPACIO: PÁRA REVELAR LA P 
ALABRA”; TINUERSE QU 

550 LET x4=INREYS: 1F x=" THE 
NÑ 0 TO 50 

£60 1F x%:5" " THEN 60 TU 558 

S6S BEEF .1,40: PRINT AT 7 ¿BLE 
N_ TIG:¿S3TRG LI; AT a, ¿B-LEN S$:S5TR$_3 
¿AT 10,9;' ¡AT 12,6-LEN T5 
¿3TR% T 

50 FRINT AT 12,22-2LEN T4;: F 
OR X21 TO LEN T%4: BEEP .1,13+x: 
PRINT O e LA NEXT x 

530 FRINT AT 135,0; FLASH 1," P 
ULSA «lo PARA LA SIGUIENTE > 
UMA “ FLASH O 

595 LET B=PEER 235855: IF 6:49 
THEN 50 ! , 

535 CIM E) 

5390 CAT “HH , Y", "ENG 
RAS e EAN e ET” | "LLEUER", 
"FERSTS", "SHADE: LC OTATO "RADI 
DS", CTHAMES CARROT" "TOMATO"," 
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der RbP. MA -JaJ 
"PLANTS", 


“COSTLY". "LEMONS"', 
j ESETO A "ROBBER", 
A INTS". "TANÓ 
17 TER". '"LATTER" 
"MISTER" 


[ENDB+101: PRINT OA 
304 


I 
A 
ad 
EN 
Ñ 
da 


mi = mani 
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Juego de la Bolsa 
(48 K) 


Esta es una simulación de inversiones en la que compites con la compa- 
ñía de ordenadores SPECTRAL INVESTMENTS para adquirir un millón 
de libras esterlinas. Empiezas con 100.000 y tienes que estudiar los infor- 
mes confidenciales de mercado y comprar y vender acciones en la Bolsa. 
Si encuentras una compañía que es rica en activos de capital pero que está 
teniendo pérdidas, puedes hacer una oferta por la compañía con la idea 
de distribuir sus activos entre los accionistas. Para quedarte con la compa- 
ñía tienes que intentar comprar el 51 % de las acciones, en cuyo momento 
la oposición empezará a hacer ofertas contra ti. Ocasionalmente SPEC- 
TRAL iniciará sus propias ofertas de compra. Cuanto más duren las ofer- 
tas mayor será la posibilidad de que intervenga un tercero. 

Las acciones ordinarias pueden ser compradas o vendidas en cualquier 
cantidad y se indicará una revisión regular de los precios de las acciones, 
además de un servicio de «información telegráfica» del mercado. Si quie- 
res ver más detalladamente el comportamiento de una compañía en par- 
ticular, tienes la opción de consultar una copia del informe anual conte- 
niendo información sobre activos, precios de las acciones, beneficios y otros 
datos de utilidad. Durante cada ronda, todas las compañías manufacturan 
y comercializan sus productos, y es esta actitud la que determina su renta- 
bilidad. Frecuentemente una compañía hará inversiones en nuevos bienes 
de equipo y este gasto causará un pequeño descenso en la cotización del 
precio de sus acciones. No debes apresurarte a vender las acciones cuando 
un aumento en la productividad puede estar a la vuelta de la esquina. 


10 EORDER 1: PAPER 1: INK 7: € | 
L5 

20 PRINT_AT 0,12; "LA FP 
RINT AT 2,7:%4 A, Erski a 
AT 4,5:' omo te Llamas?" 

30 INPUT ns 

50 FRINT RT 5,6. ' Nivel de difi 
cultad 3?" ¿AT 6,11," 11,2 Y 31 

BO IMPIUT Lev 

“0 PRINT PT 7,3; "Espera or F 
avor” 


su RANDUMIZE 

94 50 TO 35250 

100 PRINT TAB (111; "CUENTAS" 
140 PRINT 


150 PRINT n$.25 

YD PRINT 
¿0 PFRINT "Ac 
+. 
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178 


FOR x=1 TO 18 

LET q=3q+2 1x) 

TIE f$ix)="c" THEN GO TO 240 
LET_ q1=q1+(8 (x1 0d (x)1 


x 
PRINT "Alianzas ", INT q 


PRINT "Valor 
T o ((q1++.005) x 

PRINT 

FRINT 'A 


a 


TINE RUINA IDAHO ADE 


al alianzas 
A 


Hum” 


r 


IF 31+ch>3 THEN 

IF q1+ch<0 THEN 6 

LET q3=u 

FOR x=1 TO 10 

IF F$ix?="c" THEN 60 TO 355 

LET q3=393+1f (x1%d1x)) 

NEXT x 

IF 3a3+zxch>s THEN 60 TO 275 
2 


IF 3q3+Zzxch:<0 THEN 50 TO 27 


SOGAGOZGCOOGEDEO 


O GI GS 


S 
15 
Y 


G 
A G GuUGnNos 
D 
pal 
H 
z 
4x 


IF tó%6="x" AND ch+ql>zxch+93 
N GO TO 2720 
IF t '" CANDO ch+q1:zxch+q3 


Posee accionmzs d 


mu 


R RN 
PRINT TAB (101; “SERVICIO TE 


LET 39:0: LET q1:=8 
LET mili 


MR wx 0 mino TITO 


x 30 
MINA ARREMPERLE EA 


- Didi. 


xo 


AND 1 1x1559 THEN 
s beneficios lá 


- U 

ODA 

HIP UCERO 
3 


GUGTAIZEOO EA AZOS 


(x1:<60 THEN PRINT c5tx! 
ner problemas” 


THEN. PRINT CARA 


ANC vixioml THEN 
3 ¡INT vix1 


I 
ED] 
e 
2 
n 
” 
mw 
, 


P 

E 

ml AO 
dundantcias” 
FRINT 
E 
P 
N 


mA 


T ql=qled (xi 
AUSE 100 


--u a 
de Te E o 


0-01 


IF 3:=0 THEN LET t$="x 
IF 120 THEN 60 TO 110 
LET asa=q1/9 

PRINT "Total promedio alian 
¿INT ((a53%+.0051 +100) ¿109 

IF asa>omitli THEN PRINT por 
ima de "¿INT ((iasa-mt111+.U9 
¿103) 7100 

IF asacmitl? THEN PRINT por 
39 3% "¡INT ¿tímtli-asa)1+.0 


IF asa»ile! THEN PRINT "Alt 
IF asa>ii2: THEN LET i (Z2)=a 
3) THEN PRINT "Baj 
DO IF asa:xi(3i THEN LET 1 (59)=a 
u RETURN 


G 15) 


o 
JOA lO 0 2d] 


GON UA 
a 2 
o 
1 
= 
pe 
nd 
2 
Do 
o 


y 
ie 
Mer 0+ Dg —m > Q6é Urew0 


a) 
H 
7 
ús 
Y 
17 
r 

- 

15) 


o 
o 
úl 
o 
11) 
paa 
- 
* 

m 
3 
DU 
o 


Y 
O 0 CO 


FOR x=1 TU 1u 
IF fálxi="c" THEN GO TO 1u1 


1] 

[5] 

E IF lev=1 OR lev=2 THEN GO T 
pa] “x" AND OF ND 
HEN 39, e 
¡los AND Ex 
ps THEN 50 TO 1091 


109 THEN 60 TC 10109 
AND RND>.5 THEN GÓ0 


ET f=((11(5/100) $51) -Fixlis 


(XI 4100) +51> AND F<zZXx 
<510000 AND e (xi «5100 
<1 
0) 


9 


(xJ]>0 
8 1119 
):5100 


PR onredad4a 
S 5 


THEN_GO TO 2520 
="Cc" THEN 60 TO 1ul 


G 


99 THEN GO TO 1918 
=Zxchr10 
D AND 91(x)>0 THEN 


Da] 
IF levz1 THEN 50 TO 1010 
IF wix1>60 AND 3a(x!1>1 THEN 


IF 0w(x1>560 AND 9(x1>5 THEN 
w(x)>50 AND 39 (x1>10 THEN 


Al BB 1042 
EN 


und 


GOGETS ASE ENEMIGO NME 
H 
MN 


Att 
tenth 
x1>55 


ao 


66606076 60858606 Quo Cu CO 


DA -=s 


3% 
E 

7.1) 

z 


(xXx) 1 +8 [x) +fFixJo>oL 


00 AND (f (x1+ 1% 
THEN RETURN 
ci+tenth*1.05 
ch-tenth 

(+ INT (tenthsdl 


Utx)d=L (xXx) +INTO (tenthyYdl 


ya 
EN 
MW =D 


e. 
TOQHTITHDZE 
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DERE EO EPR RERRERLCADGE? PEREPRERGr"? CPRPRERPRERGAR E GR HA HAR E 


2 MMMM AR * PAPRPPRPRGÓ LIL GI A A A a 


F INT 


256666 CECOGEYA ETE E 


7 IF Yoli 
b 

E 

E] 

la] 

va] 

1 

2 

3 

4 

5 

Ed PRINT 
350 INPUT y 
30 IF Yell 
es tantos' 


"Cuantos quieres Y 


xJ31 

1100 RETURN 

1110 LET aíixizalxi-¿lf(x)x*d(x1)1* 
1.9531 

1120 LET ZxcTh=Z2xCh+f [x) «ed (x1 
1130 LET Lixi=L (x)+f (Xx) 

1140 LET fixi=0 

1150 RETURN 

1150 PRINT 

1190 _PRINT TAB (91; "PRECIOS A CO 
MPARTIR" 

1:00 PRINT 

1210 PRINT "COMPANIA"; TAB (11); 
PRECIO COMP." TAB (241, "ARR. “AB 
li I 

1; R 10 

La " THEN PRINT cgi 
So 5 

S THEN 50 TU 131 


dixiszdix) THEN LET p 


50 1 

STR 3 (x)+",.00*' 

70 1F INT niíxiaenixi THEN LET 5r 
STR ntxi+".0u0 

30 IF INT 31ixi<d1x1 THEN LET p 
=3TR%S INT (1d (xJ+,005) +100) -10 
90 IF INT nmixi<ntx) THEN LET 5 
STRS CINTO cin (x1 4.0051 +1001 10 
DO FRINT cg5ix1 TAB (21-LEN P%+ 
¡PS:TABG (30-LEN rás+1l1 rg 

10 MEXT x 

20 PRINT 

30 PRINT ' TOTAL PROMECIO COMP. 
INT (lasa+.0403) +1001 -109 

390 PRINT "Tienes £ "¡INT (ich+. 
5) :100 -100 

l RETURHM 

30 PRINT "CUANTOS COMPRAS" 

40 INFLT y 

5 IF Yx+dix1o2ch THEN PRINT "No 
18085 dinero suficiente" 

5 IF Yédixioch THEN 50 TO 143 


EN THEN PRINT "No ha 


eb 


mm 
3 
a 


x3 THEN FPRINT "No ti 


e 


THEN 0 TO 15798 


[as] e lx) 

10 LET ch=ch+ (id ixid0 

20 LET Liíxi=lixi+y 

30 LET a3(x)=a(x1-[[y*%d1ix11%+1.0 
40 LET e lx1=8e (x1-u 

45 LET x5$='"p" 

50 RETURN 

50 LET tá="Faseh 

30 LET 21=.01 

00 PRINT TAB (7); "COMPRA LUMPL 
ar 

lv) 

1 

l 

2 


POFUP-OEG + RM e+rRrrRruI +A 


5 

5 

5 

5 

4 

5 

5 

5 
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+ 

705 PRINT 

710 PRINT “Tienes "¡INT (e (x1*1 
Dis; Mode lo compartido" 

720 PRINT "Precio actual de com 
sE", INT (id ÍxI4. VD05S: 100) 109 

730 PRINT "Hay "INT LIX" dis 
onibles" 

740 PRINT "Necasitas "¡INT (510 
VO0-e (x11;" para Una mayoria” 

750 FRINT "Estos cuestan _ £'"; INT 
CI(S1IDOBUD-E 1x1 1d 1x14+.005) £ 1901 
100.'al precio del mercado” 

755 PRINT '"Tienaszs "INT 1 ches 
453) +100) «100 

75Bb LET 229=0 

757 FOR v=1 TO 10 

758 IF fáivix>'"c” THEN LET E3=e 
+ Fivirdivi) 

7539 NEXT y 

750 IF RND:.10 THEN GO TO 1763 

762 FRINT "lin tercero 3ana El p 
JE” 

763 GO 230UB 2040 

764 60 TO 13590 

769 PRINT "Cuanto das por cada 

ujer?” 

770 INPUT z 

s10 1% 2132 THEN 50 TO 1350 

520 LET kl=Z (x1+/510000% 1(7+.41) 
522 LET k2=(510000-f (xX1) + (7+.01 


35530 IF kl>k2 AND [Z7xch+eg9)>= 12 
HEN LET 2z1l=Z1+. 
540 1F 21>2 THEN PRINT m " bid 
"¡INT ((21+.005) *100! /1 ó 
Q IF z21>52 THEN 50 TO_175u 
Y IF 21:z THEN 60 SUB 1920 
0 IF 21:Z2 THEN 50 SUB 2179 
VD LET 7Z1=0 
S LET 70 
Q 1F 1t9="fFfas2h" THEN 60 TO 15 


IF 1$="fasem'" THEN GU TO 10 


REM PARPREAEAA 


PERPEPREFERERERRERREV EFE —aoopyrOprelerroerrrGrs 


MOCOS EA AO O OS O 
JODNREGIO E Emo 
a 


La] 

Y PRIN 

0 LET Zl=0 

Q LET F=0 

YD PRINT "HAS SANADO_ LA PUJA” 
OD LET CH=0H-.1Z+ (510000-E (x1)) 


atx1/20 THEN 50 TO 


1959 1=ACX1 + 124 (510000-E ( 
X11) 
19390 2E (Xx) +510000-E(Xx11 
2000 =5-(ElxX14+F(X1) 
2910 "DUieres llevarte Las 
accíi esta compania”? 
2020 $ 
2030 n” THEN RETURN 
2040 Las 3cciones son dis 
trib entos los socios” 
2450 = (8 1x1+100) /s 
2050 sh=(f (xXx) 100) /5 
2970 b(x1/100 
2030 E DN 
20720 Ah=ZXCAh+IZXPsSh+on! 
2100 <=0 THEN GO TO 2140 
2110 l=a (xl /ss 
2120 h+ (3 (0x3 %d (x)) 
2130 SZXCh+Lf (xd 1x0) 
2140 E 
2150 =0 
21650 
21230 10000-f x)3) xch TH 
EN PR putas de SPESTRAL". 
RETURN 
2200 PRINT m4," ha ganado la puj 
S 
Ea LET zZxch=ZxCch-[5810000-f (x1 
ez) 
EA LET alxiz=a (x1+((519000-f (x1 
14231) 
2240 LET Fixizfixi+ 1(510000-F (x)1 
2250 LET 21=0 Ñ 
2250 IF Íx1<1 THEN GO SUB 2048 
2279 RETURN 
223230 FOR x21 TO 10 
ll IF fáix1="c" THEN 560 TO 259 
2310 LET vix)=9 
2320 LET cix1=0 
2330 IF alx' :x10000 THEN LET adtx) 
2103090 
2349 LET ¡(xi =a lx). 10 
2350 REE: 
= 1 o idos. THEN LET 
2374 
2400 
23580 LET Cixizclxi+tla (xd “101 -b( 
x11 
23230 LET bixi=sINT (a 1x1./,101 
2400 LET erod=i(x1 “10 
2410 LET ro=INT ¡AND+3555S1+1 
dll e T Md =: THEN LET 0uix) =0w (xi 
2430 1F rnd=3 THEN LET 0wi(x)=w 1x1 
+1 
2440 LET tixi=prod+u lxi 
2450 LET c1x1=2 (1x1 + 1h (x1 *SQ00) 
24509 LET profe=t ixtocix) 
2470 LET a1x1=a (x1+t (x1 
2430 LET 3 1x1=3 (x)-Cc 1x1 
2420 1F ax /<=]10000 THEN LET 3yix 
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| 


1=h Lx) 
2500 1F a3[x1:<=10000 THEN LET hix 
i=40x1 1000 
2510 LET vixi=vw (x)1-h1x1 
2520 LET 9(x1=(prof+*100)/tixo 
2550 LET spl=34(x) 
2540 IF a(x1:<10000 THEN LET aítx)? 
219000 
2550 LET 3d ix 1i=3a(x) 
2580 LET nus =d (x)-spP1 
2570 IF ax! ¿10000 FREN LET a31(x1 
=10000 
e IF RND+.3 THEN LET vwixi=5w cx 
1410 
2553 IF RND>,9 THEN LET 0x1 =w dx 
E 
2520 NEXT x 
2810 RETLIRN 
2620 PRINT PRINT 
25840 LET tá="Fasem' 
2860 PRINT m$,'" puja par 
2670 PRINT cx); comprar” 
2600 LET Zl=d[(x1 
2590 PRINT a ¿INTO ¿(9d 1x1+.0085) 
*100) -100; "par acc 10nM Comp." 
2700 360 TO 1710 
2740 PRINT "Has aanado'" 
2750 50 TO 2730 
2770 PRINT m4; ha ganado", con 
E" ¡z2xch+q3 
27350 PRINT Diieres volver 3 yJuy 
ar?" 
2720 INPUT v$ 
2300 IF vk%="s'" THEN 0 TO lu 
2310 STOP 
2520 REM bucle 
2330 560 SUB 22590 
2350 60 SUB =250 
2560 560 UE 100 
2570 50 SUB 460 
2530 501 SUB 11530 
29009 FRINT "INTRODUCE LA _ INICIAL 
CDE LA COM- PANIR ELEGIDA" 
310 PRINT "0 PIPASARI CUA 
O INPUT x 
30 IF x$="p" THEN GO TO 32d 
En FOR x=1 TO 10 
A IF CODE 25(x) [111=CO0DE x 4-32 
EN 560 TO 2390 
: D NEXT x 
: 5 560 TO 23900 
go IF fháixi="c'" TREN 50 TO 2390 
22350 PRINT 
2390 PRINT 2$1x! 
3uva PRINT "capital disponible £ 
"INTO ¿fa (x1 4.005: 41001 -100 
3010 PRINT "Equipo £"; INT tibixa 
+ .005 +1001 -100 
3020 PRINT "Empleados "¡INT hix! 
30309 PRINT REL. £" ¡INT (1 
Cc (x1 4.905) +1091 ¿100 . 
3044 PRINT "Ganancias £'", INT (:t 
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(xXi=c 1x1 +. 005) +1001 + ¿1010 

3050 PRINT 'Porcentaje de gananc 
ias de camb. £' "¡INT 9 (dx! 

30580 PRINWT "Frecio acrci09nes Comp 
EN ¡INT (1d (x1+.005) ¿100 -10u 
3070 PRINT "Acciones comp, di35p0 
nibles “¡INT Ltx1 

3050 PRINT UN. de las Ue PoOseeSs 
"¡INT 2 1x0 

3020 FRINT Porcentajes de las q 
LE posees "CINTO (lex 11000)! «51 
3100 FRINT '"Tienas £ ¿INT lich+. 
905! ;1001 «100 

3110 PRINT E E 
3120 IF 21x ¿=510000 THEN FPRINT 
“Cuantas a. Mp? 

3130 IF e (x0. 25 19000 THEN INFPLIT 
3% 

3140 1F e 1x1: :519000 THEN LET 2%4= 
Ao 

3150 IF 21x/>=S10000 AND a$='>3 
THEN 50 310B 2040 

3150 IF Ff$ixi="x" THEN PRINT "Co 
mprar 1cl,Llendel lvt,o Pasar Ip) 
3170 IF fálix)="x" THEN INPUT xS 
3175 IF Táixi="c" THEN LET ue P 
3150 IF x$< ' AND xg<>"s'" AND 
xXx "b'" THEN 50 TO 22990 

3190 IF x$="0'" THEN GO SUB 1420 
3200 IF x%=' THEN 50 5US 1550 
319 IF x%= THEN PRINT "Guier 
es ver ntra compania?" (a 9 .n1" 
3220 IF x%4="p" THEN INPUT a5 
3230 IF x%$="p" AND a$="s" THEN G 
D TO 25399 

3240 50 =3UB 520 

3250 50 53518 2350 

327U0 ET ms=">3pectral Investment 
S Ltda 

3230 DIM 2$/10,1851 

3290 LET c5(1:="ACME CORR" 

3308 LET c$:21='"BRN IND." 

3310 LET c$:39!/="CAFRA STEEL" 
33520 LET c5$!14)1= "DELTA GROLP' 
3330 LET c$15)1= "ELLIOTT CORP" 
3340 LET 2415) = FORAX CHEMICALS" 
3350 CB L7)= "5GNS INT," 

3350 C$LS)1= "HOFE HOLCOINGS" 

3 $131 = "INCE AND Ca," 

93 210) ="QLUINES ANC PFEERE 
3G%0 LET x=10 

34009 DIM aix1: DIM bix1: DIM ccíx 
3 CIM t(x): DIM dixo BAM pix: 
DIM elx1l: IM fixi: DIM 9qíxi: 
IMhix) 

3300 DIM 113) 

3310 LET uvg=" 

3520 DIM ix: DIM Lf> 

3540 LET E=$=" desa ruda Ltd" 


50 LET s=1000000 

0 LET ch=100000 

¿“Q LET zxch=ch 

VU LET au=S500u 

Q LET asa=0 

0 LET tá="0 

VD CIM m3) 

VD LET E [va] 

0 CIM mix CIM uix1d: DIM Yix 


DIM AF 

O FOR x 10 

3 FOR x 10 

9 LET a NT” (RND+s «21+1 

Y LET yd “a ix] 

VD LET b T (RND+3-10:+1 
F 


pa] 

3734 
375 
375 
377 
375 


LET x1.-10-1000 
740 LET 8 
D LET f do 
760 LET 1 
TUD MEXT ; 
750 50 TU 


Bricklayer 


Controlas una pequeña nave que vuela por la parte superior de la pan- 
talla. Desde la inferior se va formando un muro, que, eventualmente, lle- 
gará a llenar completamente el área de juego. Tu misión es lanzar hombres 
desde la nave que deben caer exactamente en el suelo (parte más baja de 
la pantalla). Si alguno de ellos cayese encima de cualquier parte del muro, 
perderás una vida. Para hacer agujeros en este (para que los hombres cai- 
gan a través de ellos y alcancen el suelo) y para evitar aue el muro se haga 
demasiado grande, tienes además la opción de lanzar bombas con las que 
puedes hacer volar secciones del muro. 
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3 "PLMAX. 0 ¡hs 
THEN BEEF .0 


POT TAO 


mu 


IF 


ELA 
Miss SE 


FRINT AT OQ,0 “"ELUNTOS "is ¿AT 


50 1F INREYG="2" THEN 1F 1 
THEN LET t=1: LET k=x+1: LET 
s 203 A 


FO INREYS= "mM AND 33 
IF 2:21 PHIEN LET 2 


1] Zu 
THEN PRINT AT 1 A 

FRINT AT 1,9: 00": 
1F SCREENS Li+l, 71 


HEM PRINTOAT O L.k;" 


7 
THEM. LET 5=3 +b32: E 
RINT AT 1,39: ts LET 
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Ml) 

a 

zm 

e 

Fi 

a 


m 
m 


o RS 
GGNTEO cs 


Di TA Poe 
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bra; INE ANDR*3, PA 
22% THEN LET 2=- 
60 TO 1000 
¡A FRINT HAT 
2” : LET t=0: IF L«<208 
FRINT AT O L+2,k-1," lá 
FLASH lie" 
BEEP ,1,-30: 
=0: re RAT 1 
IF Live 
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3= 0) TO 1600 

BR ETURN 

1: 9,.125,125,126,125,125, 
2 

1: 90,24,115,:-139,2:55,110,2 
7 231,126,50,50,50,68,60 
3 

1533 DATA 23,253,8,62,98,8,20,34 
120 FOR a=USR "a" TO USR "d'"+7 
RERAE b: PORE a,b: NEXT a 

131 LET a=27: LET b=20 

192 LET_ c=-.6: LET 1=0: LET lz=1l 
, LE ¿ LET i=1 

133 0: LET f=1 

1394 E] 

197 ves=14 


1 
200 RETURN 
1000 IF lives=0 THEN PRINT AT 0, 
350; "0" 
1010 FOR 0=-30 TO 3 STEP 2 
lo20 GEEF .01,0 
NEZT 0 
a PRINT FLASH 1;¿AT 15,0; “QUIE 
RES UDLVER A TDSAR? ls.n3" 
1035 IF s:hs THEN LET ha=3 
1040 INPUT 35 
1050 IF a$í(1i="s'" THEN 50 SUB 13 
1: CL3 : PAUSE 100: 60 TO 15 
1460 S3T0OFP 
4004 FRINT AT 1,10;"EL MURO" 
4010 PRINT AT 1,10, OVER 1;" 


4013 FRINT "El objetivo de este 
JUEJO ES dejar caer himanoid 
es desde la nave en la parte su 
Perior de la pantalla. A medida 
Ue vas ¿L- 3ando el muro ira a 
Umentando de tamano. Puedes romp 
erlo sa. .tandouna bomba, Tienes 1 
D vidas cada vez que Un humanoid 
E 3% estrellecontra el muro perd 
eras una." 
4015 PRINT 00" Era SO 
TAR EDMBAS Mita aaa vt 


"0 HUMANDIDES"” 
4017 PRINT INVERSE 1; "Pulsa cua 
Lquier tecla para comenzar. 


4020 PAUSE 0 
4025 cLs 
4030 RETURN 
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Guerra sin cuartel 


Arriba en los cielos tú y la unidad enemiga estáis enzarzados en un due- 
lo por encima de las trincheras. Cae en picado sobre el enemigo, pégate 
a su cola, cógele descuidado desde abajo, mientras tus cañones disparan 
el plomo de la muerte. Disfruta, pero permanece constantemente alerta. 


1 REM Solo Doafiaht ER, Er=k 
50 sus 2000 


GORDER 1: FAPER S: ECL3 

230 50 SUB 7 

1000 REM **BLICLE PRINCIPAL ++ 
1005 A P(31=931 AND pidi=J9 (40 
S.U5 4000 
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ca 
He- 1ZAD=.- DZ 
5 D-— 


NT INR _1 
312 LET 
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no 
DEM U-D 


T 1 HM HA HOC HD 
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AND pi21=3.141 


“—ERAHPRD- Re 
CaZU— 
PE 


MG-VEMGIIGSTIO-TGO 
A AO A e MN E 


laa+1511: LET 
di=3 (21 
AND a=1 THEN 


3=-1 AND ARES 
DOAB2 (pi21l-3 121 


ia "oa 
"HEN PRINT INR a 
5 
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pe 


má 7740100 N-+NTD0 
Za 
PR 
r= 
m- 
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H 

mT 

H 

ya 
> mM: 
M- HMA + 
DO AAA 

MZ TO 


ND 9=1 THEN 


app T 
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er 
15] 
O 
a 
(7 
Hi 
e 
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ne 
Ze 
o 
H 
1 


3 T 
IF _aa=3 THEN LE 
10290 IF INREYHA=" 
LET aza-1: A 


1110 1F F>50 THEN GD 
: IF p(1:>20 THEN “ler 
IF 3(11:20 THEN LET 
IF pi1::<0 THEN LET Fl: 
(11:00 Ele CET a 

11 

THEN LET 

THEN LET pi 
(11 +2 laa! 


THEN LET 312 
THEN LET 3121 


nn UN —-IUN+ E 
ron 


Pererruerrr=rrrrr 
UNWUN—PrerRIPRERE 
MOR 1 00D MUERE 
G04SGE EE E JON 
Pi==w4R=--0) 


2000 REM OS 

2010 IF f=1 THEN LET x=FN a(tp tz 
FN b(p(1)): LET Y=-Y 
f=2 THEN LET x=FN alíqíizl 
biqíi1ii: LET U=-y 
THEN LET-XxX=FUTat LE 


THEN LET xx=3laa1: L 


4 
a 
va 
" 
-. 
a 
DW ll 


de DR 4:53 OR Y 

HEN ÉLOT INR Tf; 
¿X Y 

2070 1F f=1 AND ATTR (qq, q tz 


La) 
y 


iS 
41 0R f=2 AND_ATTR (pili,p 12) 


a 


2099 PLOT INR f; OVER 1.¿x,Y: LET 


X mx +Xx LET =U+UY 
2095 IF cnt<s THEN 50 TO 2050 
2202 LET f=0. RETURN 
3888 PRINT PAPER 2; INK 5; FLASH 
1;AT 20,q12);" 
3098 FOR'xa1 TO 10: BEEF .1,-20: 
NEXT x: 


1 
PRINT PAPER S/AT 20,912 
1: IF 


1000 SEL 


4010 AR-ENT FLAS 
1; HAT 
LET Live 
.1,-20: 
4 THEN 
60 TO Saga 
3045 FRINT OA A 
4050 LET a=1 T Bd 
=240 LET pizi <a: LE 
Tor! =231 LET Epi 
dl=p liz LET T qué 
=4 1x1 
4050 50 =UE 100 
daro GO TO 100 
5000 1F r=1 AE FRINT PAPER <A 
TQ aia): 
Sao DEE THEN PRINTOFAPER 2:A 
IN 
Sa30Bd FOR L=1 to 10: EGEEF .,1,-=20: 
NEXT 1 A 
ve 


5040 IF F=1 THEN Le Lives2=Li 
2-1 TF lives2=0 THEN 560 TO 5600 


suso 1F 
=> LIE-4 
susu IF 
Tat2l=3 
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190 


H LET prli=20: LE 
Te 1 
GÓ SUB 71 

2030 60 TO 100 

500 SEN, *«PARTICA ACA 

EDS IF Llivez=0 ANC La 

N PRINT At 13,4,.'"Habei 

A AO 

2019 1F 0D ANNE Li 

H PRIMWNT 3, "Ha Ya 

denador' 

caz0 IF AND Lair 

N PRIWT : Eres 

edor 1" 

5030 FREIN d “Pulsa cualqu 
18r tecrcl iniciar el p 
roaograma'” 

6040 IF INKEYGS="" THEN 50 TO 50) 
18] 
6050 Rin 

7100 FRINT PAFER 1; DINA Yi¡AT Sl, 
9, "VIC HUMANO: Co Lives," COMP, 
pd a 

110 

35000 IHk “: GORDER 1: € 
LS 

5010 PRINT AT 0,%, “"CUELO AEREO": 
PRINT PRINWT 
3020 PRINT ¿O PRINT " Tecla 
2 de control:": FRINT PRINT " 
3.= 3irar arriba Zo = Y. ata 
A x = disparo": PRINT : FRI 
NT OC FRINT O: PRINT "El igador a 
ontroala la avioneta azul $ ola co 
Mmpitadora la de colar negra" 
5050 FRINT AT 21,0;"Pulsa una t 


mm 


CSla para comenzar" 
35060 IF INREYS%="" THEN 560 TO 506 


9255 BEER .1/ANDF30; CL 
MOMENTO, id FAVOR" 


3009 DIM p(4) 

29810 DIM 314) 

3020 DIM a4 (2,1) 

3039 DIM 41(186): DIM e (16) 

9040 LET 9=1 

3050 LET P(1)=20: LET p(2)=0: LE 
T qíli=20: LET q12)1=31: LET pi3) 
=p11): LET Pid)=p 1210: LET q1(3)=q 
(1): LET q14)=q1(3) 

3060 LET a=1: LET aaza 

3070 RESTORE : FOR x=1 TO 15 
390350 READ n: LET dix)=n 

390%0 RERD nm: LET elxiz=n 

3100 NEXT x 

39110 DATA 0,.0,-1,-1,-1,-1.,-1,-1, 
9,0,1,1,1,1,1,1 

3120 DATA 1.-1,1,-1,94,0,-1,1,-1, 
1,-1,1,0,0,1,-1 

3130 LET F=08 

3140 LET 3$%(11=CHR%4 (a+1431: LET 


9$(21=CHR$ laa 

3150 FOR x=USR " 

9150 RERD n 

9170 PDORE x.n 
9150 NEXT x A 

391239 DATA 0,15,132,255,0,15,0,0 
39200 CATA 3,26,52,2,18,1564,54,0 
3210 DATA 54,34,115,54,15,16,16, 
45 

3220 DATA 16,72,35,208,72,35,2,4 
9230 DATA 0,.240,0,255,33,240,0,0 
3240 DATA 9,2,3/,/2,144,35,539,16 
9250 DATA 12,5,5,5,42,45,42,42 
3250 DATA 32,84,358,15,11,35,15,3 
23255 CATA 0,240,33,255,0,240,4,0 
pora CATA 156,58,164,144,72,37,2, 
9275 CATA 42,42.45,42,9,39,9,5 
29230 CATA 3,18,.35,11,15,36,64,32 
9235 CATA 0,.4,15,0,255,132,15,0 
3255 CATA 0,64,164,15,5,36,26,4 
dd DATA 45,15,16,16,84,116,%4, 
24 

3253 CATA 4,2,36,72,205,35,72,16 
239220 LET Lives=3: LET lives2z=3 
39300 DEF FN alxl=x35+4 
9310 DEF FN bixi=x*5-172 
9320 CIM FI11861: DIM 9(16) 
3330 FOR x=1 TO 15: RERDB n: LET 
¡E Dn: NE) x 

3350 OA 1 10,-3,-5,-53,0,5,0,5 
,.3,3,0 ,-3 

3935 FO 0 16: READ n. LET 
3 ixis=n: > 

3370 — -8,-3,0,5,5,5,0,-3,0,3 
,35,8,0,-3,-8,-8 
3329 RETUAN 


Evolución (1) 


Comienza en el estadio de la ameba, en el cual el jugador controla el 


movimiento de una pequeña ameba, 


la cual ha de recorrer la pantalla co- 


miendo esporas mientras evita los ataques de otros seres unicelulares. 
En el segundo programa de esta serie el jugador es transformado en una 


rana que tiene que ir ocultándose de 


los ataques de captura de los pájaros, 


mientras que captura un número determinado de moscas con su lengua. 
No existe ninguna princesa encantada como premio, pero sí una promo- 
ción transformándote en un castor en el tercer programa, en el cual hay 
que nadar y capturar 10 peces, evitando a su vez el contacto con un peli- 


groso cangrejo. 
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¡AT 20, CD INK 
L1;? : ¡FOR 


2: LET x(31zx (2 
I 

2125 IF INREYS%="0" THEN GO SUB 2 
paja] 

21350 IF INFEYGH<> THEN BEEF ,a 
3,1: BEEP ,.003,=: BEER ¿003,39; B 
EEP ¿003,4 

2140 _ IF ATTR (13,x+2=5 THEN 650 

TO 2250 

2 DD IF 4iziz=13 THEN PRINT AT Yi 
2 20 á LET Yi21=0: LET Xi 
2! 3 IF (21:30 THEN LET x (2) 
21558 IF x11:/:239 THEN PRINT AT ul 
IEA A E LET XKbtLli=A; LET 341 
! ¿¡NDR5 

2150 FR TORQ 
E 

21530 LE 

U2al+1xid 


(11 =4 (11 +ANDO<1.S-AND*+*1.5: LET x( 
li=x 111 +RND+1.5: IF 4 i11>20 THEN 
LET yili=14 
2129 L X=x 
+ LINRE 7 
2199 60 TO = 
2200 Xx + 
2202 
2204 
OLE 
2210. 
LET 
YT) E 
Y11) + 
2220 IF f=1% THEN CL FOR f=10 
TOO =STEP -1: BEEF ,95,f NEXT 
Fo FRINT Bien hecho! Te has co 
mido ES 3 Y de 23le m>2d0 
haz evol do 3 la fase 319 
Viente,” E 3002 
2230 RETURN 
2250 FOR f=1 TO <Q P.,01,f 
NEXT ELS FRINT 35 3i1d0 3 
evoarado Y Ya Mo pued voluciona 
Tomas Lejos.” 60 TO as] 
300 INE 7: PRINT "UH evolucion 
nado ahora a un É tor, En es 
ta fase tienes que < TO OPEcCE3 a 
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3050 RESTORE 3040: F FSUSR Va! 
TÁ USAR "29 +7: REAG CORE Po Es 
NEXT f 
3040 CATA 4,9,15,185. ¿152,3,12 
¿0,352,220,10,1,254,1 
3050 CATA 0,4,52,90, l127,3,24 
¿0,0,240,3,71,249,180, 
3060 CATA 0,0,5,51.,1 558,255,2 
55,12,30,B6IN 1011101 5,255,B1 
WN 10111110, 12 
3055 DATA 1 ¿64,255 ¿235,56 
183,155 
30870 FRINF 21,0, FAFER 1, "EEE 
EEEEEEEEEE EEFEEFEEEEEEEEEE" 
3030 FOR f 0 20: PRINT INR 1: 
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3 NEXT F 
3 T x=s15: LET Yis 
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S LET fiz0: FRIN 
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3040 IF INFEYAs="2" THEN CLS : 5 
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3050 IF INFREY4="3" THEN CL3 : G0 
TO 35000 

3060 1F INNEVS="4" THEN LOA "" 
3070 IF INKEYS="5" THEN STOP 
3050 60 TO S5O020 


Esta serie de seis programas ha sido dividida en tres grupos con conte- 
nido propio. Representa la evolución de la vida a partir de la ameba unice- 
lular hasta el hombre contemporáneo, unidos por tema singular: ¡la su- 
pervivencia! 


Evolución (2) 


Evolución (2) contiene dos programas. En el primero el jugador contro- 
la un gran gorila que se mueve por un bosque recogiendo plátanos que 
caen aleatoriamente al suelo. El ordenador controla un pequeño mono ex- 
tremadamente ágil que supone una dura competencia. 

El segundo programa en esta sección te pone a los mandos de un hom- 
bre de las cavernas que trata desesperadamente de repeler los ataques de 
los invasores de su territorio procedentes de otras cavernas disparando fle- 
chas. 
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LET dx=wq: RETURN 
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: LET Odx=b: RETU 
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1520 LET duyza-1: LET dx2x0: RETU 
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ido LET dy2x=1: LET dxeml: RETUR 
dad LET dyexzl: LET dx2x8;: RETUR 
le LET dyex1l: LET dx2x=-1: RETU 
1590 LET 'dy2=80;: LET dx2e-1: RETU 
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Evolución (3) 


Evolución (3) es la culminación lógica de una confrontación por la su- 
pervivencia. Como dirigente de la superpotencia que hayas elegido debes 
destruir las grandes ciudades enemigas con misiles de crucero antes de ser 
destruido por uno de sus ICEN's (misiles balísticos intercontinentales). Para 
hacer esto dispones de un tiempo muy escaso para programar el vuelo de 
tu misil con una serie de códigos direccionales, mientras el misil del ene- 
migo se ecerca a tu capital. 

La pantalla representa un mapa del mundo en el que son trazadas las 
trayectorias de los misiles. 
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DRaTY 
YR5TOU 
| ES 1 BORDER 0: PAPER 0: INK 7: C | 
3 PORKE 2356583,10 
S REM Y P.Stanley 

18 CATA 4,38,28,8,9,62,0,0,U,32 
,36,862,36,32,1,0,0,852,8,8,28,8,0 
,0,0,2,18,62,18,2,0,0 

15 DATR 128,123,128.128,128,12 
3,123,255,123,123,128,156,156,12 
3,123,255 
Ñ e 127,127,127,127,127,12 

20 FOR E "a" TO USR "g+7: 
READ x: Q0KE Y.:: NEXT 

39 DATA "LONDRES" ,8,13,'"MO3cUuU" 
15,24, "BONN" ,7,17,' WASHINTON'",8, 
3, "BRASILIA",17,4, "TOKIO'",89,23," 
RIVYADH",12,17, "CANBERRA" ,18,23, 
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50 PRINT "Esta es la 3, y ulti 
na seccion de la serie de E 
ramas de €- volucion.'"” INK De 
sta fase es una guerra nuclear e 
n la que puedes hacer de primerm 
inistro de una de las 10 gran- d 
es potencia3 que existen en el a 
n"“¡¿CHR$ 8; OVER 1;'”“0 2002 lel a 
n“,CHRA4 8,0 en que ocurre esta 

querra,” 

70 PRINT INR 8""El Objetivo es 
programar el re- corrido de tus 
Misiles hacia lascapitales anen 
igas.' 

30 PRINT INVERSE 1;'"Pulsa una 
ES para leer mas...': PAUSE Y 
:* CELS 

90 PRINT "En 2002 el Mundo no 
es muy dife-rente al que exitia 
20 an"¡CHR% 8, OVER 1;'”o3 an- t 
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CI LET ylaye2: LET xlax2: 


(501: LET cxl 

="": PRINT INK 7;¡AT 2 
L prog. desp. del pit 
1 


mo 


1 TO 150: NEXT f: PRI 
": BEEP .1,10 

1 TO sk: IF INKEVYS="" 
KEY Sm "NN" THEN LET csic 
IECENREV ASS" THEN LET cñic 
220 1 INKEYS="0" THEN LET cate 
292, 1 INKÉV4= TE" THEN LET c6tc 


235_IF_INKEYS="F" OR c=51 THEN 
PRINT AT 21,0;' 
“. BEEP .1,20: 00 


TO 60. 
249 IF cl=c THEN G0 SUB 500; 00 
TO 190 


250 PRINT INR RND*4+3;RAT_ 21, (c- 
1 ad c233)+ 11-33 AND c>rre32) cs 1 
Cd) 

¿255 1F c=92 THEN PRINT AT 21,0; 


z 
A 


260 BEEP .1,U 

270 560 TO 190 

500 FRINT AT y1,x1; OVER 1;d6, 
OVER 0;AT yu2,x2; INK 2;"M' 

510 1F Yicy THEN LET yli=y1l+1: 


T dh='" 
lp EE a THEN LET ylzy1-1: 
z 
a THEN LET x1mx1+1: 
ad IF xl>x THEN LET xlu=x1-1: 
550 PRINT INK_3; FLASH 1; BRIGH 
T O1¿AT Y1,x1; OVER 1,d% 
555 E THEN IF x1la3x THEN GU 
557 BEEP .06,25: BEEP .06,2? 


EP TES AS 


ASH D;RAT v,Uu; 
510 LET vay+ 
dos LET Uzu 
1 

“ls LET e$2* 
ND A Ss" 
14 ("*" AND c 
aya 
820 IF VYa-1 THEN LET va 


0 IF vz2l THEN LET ve 
0 IF uz-1 THEN LET Us31 
0 IF NVa32 THEN LET uxQ 
D IF vzyg2 THEN IF uxxg THEN G 
o 2009 

PRINT OVER 1; INK 7; BRIGUMT 
Tov,U;esS 
LET cac+l: IF ccBl Eo e 
< y IEA 'U" AN 
29"S" THEN LE 


[a] 
JA ÑO A 


— 


EN 0 TO 808 
0 30: BEEP .v8l,i 


890 60 3UB 508 
700 60 TO 685 

800 PRINT OVER 1;RT v,u; 

810 LET cul: Ce?” Yvay: TO 
330 60 TO 180 

900 PRINT INK 7¡AT 21,0;"Has $i 
do destruido”. FOR f=1 TO 20: PR 
INTOAT Y,x; INK RNDi6+1, "MW: BEE 
P. .03,f43: NEXT f: INPUT "Otra p 
artida ? ¡Y/NI";fÑ 

385 PRINT AT 21,0,* 


906 60 3UB 3000 


10 IF fKil)="N'" THEN 3TOP : 
INPUT AT 0,0; "Introduce niv 

e dificultad” dl 100). 30 

mas dificil '” 

ae 3k:<380 OR sx» 100 THEN G0 


PUT AT 'Quieras ver Ll 
es?" a: o FACID=R ONO TH 


TORE 38: FOR da Fs 10: 


MO 73 nm 
HM6GZY OOO 00 
PR P 


:ZMUu Pp 
- ADOOS OM 


o 
E CO=0D HO TD-D 


m 
¿ño 
Am AHH MBA DOMINO 
ICxXA- € 
+ 
TD 
3 


+4 


eS 5] - 
TS 
x 


DFE-P80G6 AH-W0FTO0JO DJ NA 


40 SR+OG6-O- GMOd DG» 00 
XMCAMA sa mMhAZM 


w 


b 
22.0 
9 THEN LET ¡í."5: 60 TO 
INT DT A IF f6 
N G 20 
sí 
7,A 


M-wW NrRmM-=-. 


o TO 
+1: e o: 
T 21,0;b8;' ha sid 


DO”-G6NGGA 
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O drstruidola)'" FOR fa1 TO 4: F 

OR 5:=7 TO Q STE -1: PRINT AT y2 
¿XA25 INK s;'"N BEEP .03,5+*+7: NE 

XT 5: NEXT f 

20158 IF 5$5cz10 THEN G0 TO 4080 

2017 PRINT ART ¿»X1; OVER 1;d6 

2020 PRINT INVERSE 1:AT pe 
“:* LET €=1; LET Cla"" LET vey: 

LET U=x: RESTORE 30: FOR fuel TO 
1: RERD b$,42,x2: NEXT f PRINT 

FLASH 1;AT Y2,x2; INK 2": LET 
Ylisuz. LET xdax2 

2025 PRINT AT 21,31; 

2030 GO TO 180 

4009 PRINT INVERSE 1¡AT ua, xml 


PRINT AT 21,80; 


405 INK 2: FLASH 1: BRIGHT 1: GU 
O_SUB 9090: INK_S: FLASH Y: BRIG 
HT_ 0: PRINT AT 9,0," "ENHORABUENE 

¡ e DOMINAS EL. MUNDO ENTERO 


BEEP .087,9 


oa 3 PARA VOLVER A INT 


[a] 
o INKEY $2" " THEN GO TO 402 


30 IF _ INREYS="S" THEN GO SUB Y 
": G0 TO 315 


STOP 


¿5 

ya 

03 

00: PRINT AT 21,0," 
e] 

000 PRINT AT 9,0," 


» aa AANDSRN 


85,8: DRA 93,167: DRA 


E 30: FOR frel EN ind 
PRINT AT b,a; "le" 


Exocet 


Falkland/Malvinas. Un grupo de barcos enemigos aparecen alcatoria- 
mente por el horizonte y depende de ti hundir tantos como seas capaz dis- 
parando misiles pulsando la tecla cero. Una mira móvil ligeramente impre- 
sa aparece bajo la línea del horizonte. Hay tres tamaños de barcos enemi- 
gos y cuanto más pequeño es, más puntos recibes al alcanzarla. Ocasio- 
nalmente el sistema electrónico de defensa del enemigo causará confusión 
consiguiendo apartar tus misiles de su trayectoria. 


1 REM Exocet E Robert Erskine 


1933 
5 60 5UB 3000 
19 50 SUB 4000 
15 60 306 1000 
20 560 506 1170 
350 LET hs=0 
40 RANDOÓMIZE 
50 INk Qu 
100 FOR x=1 TO (LEN $- 


110 IF LEN 35(x TO LEN 5%15 
HEN FRINT INE 0, FPARER SA 
¡3ix TO x+511 

2 FRINT PAPER lí INR ¿AT LIN 
MG) : 

+38 IF INKEYE=S "2" AND FLAG=0 AN 
EOL POE =<=T:* -LET 


“zx AND FLAG=A AN 
¿26 THEN LET COLECOC+1: LET 


PRINT PAPER 1: INR FAT LIN 


+' 
“IF FLA 60 TO 170 
IF INKEY A Sh THEN 560 TO 2 
E=sl: LET FLAG= 
ANER Lem L 
LET C=08 
50 TO 120 
EC=1/-13 AND 
. 4 Mi-TisS ANC Te 
Y ES L VA 
FL EL 
AE =40 THEN 6% Si 
B J5] 
: IF FLAG=0 THEN FAUVSE 5 
IF e THEN 60 TO 5u0aQ 
NEXT 
57 To "5000 
1 FAFER 1: CL: “LET LIN=11: 
¿OL=15: LET T=123; LET FLAG= 
¡E ] 207 


208 


LS] 


ErRrR 
TRHEH- 
O Es 


DIOR PER Re 


A ASA UE 
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CODI C6-S6DEUO NN 


EAT Cn Cir] Te EN A rr A 


ABRIO EIA 


m 
== 


O4OL0r aa 
1067 AGA 


MMIPBOR + prep po pp 
-6 E a 


Son 

no Emo 
"Editar 
Gaua 


E Ex=10 


FOR x=0 TO 10 
FOR Y=4 TO 31 
ERINT PAPER S; INR 1,AT x,v 


NEXT 
NEXT 


Loi e 
SS 


ES o 
1 H 
A E 
É 
ADA a] 


OA MARA ZO Ñ 


Ta 

me 
xn 

Dr Y 

un EA 
nn > 


yA 


LET 3%=08 
TO 10u 
BAS LIT RNE 101 +1 


NEXT Ox 


LET sc=0: LET 3$25$+0$ 
RETURN 
PAFER 0: INK 5: CLS : PRINT 


10,6,'"Tu puntuacion es "¡sc 


LET 5:c=0: LET EX=10 

PFRINT AT 20, 0; “Presiona una 
e Fara empezar" 

INR Y 

IF INKREY%="" THEN 60 TO 303 


50 >3UB 10009 

60 =31B 1170 

60 TO 190 

EORDER D: INK 3: PAPER u: € 
ERINT AT 1,12; "EXOCET" 
PRINT 


FRINT "El objetivo de este 
0.25", "destruir los barcos 
1303 con los misiles a lo 
3 del ", "horizonte" 

RINT 

RINT " Z=mWEwVe hacia la 
Mierda": PRINT 

RINT " x=mueve hacia la 
echa": PRINT 

RINT U=fFLUego de misil 

"RINT 

'RINT " Puntuacion de DE 

a": PRINT 


Puntuacion de BCS 


PRINT 


GQHSHAT His e DOCU 
T 
H 
pa 


a” 

RINT " Puntuacion de A 

an. 

RINT AT 21, Di; "PFresicona una 
La Fara empezar" 

F INEREY%="" THEN 60 TO 429 

¿'ETURN 
CIF POINT (4 ,531=9 THEN 50 T 
0] 

5 3% Ux+EDL1="RA" THEN LET s 
+ 


5030 IF S$lx+E5L TO 
BL" DR SB Ix+1Lí -11 
E" THEN LET 35 +: 
25 IF SEIx+L T 
F" RR BlUxq+l -: 
==" OR ABlx+l 
= "DEF" THEN LET 3 
Y REST Aa Eu: 
: TO 


5130 RETURN 
ajaja] RESTORE 3000: FOR U=LUSR "a" 


MINSA 


Í 
di, 


209 


Campo de energía 


Estás al borde del Tiempo, y te sigue de cerca una flota de naves extrate- 
rrestres cuyo único propósito es robarte la energía de tu nave. De todos 
modos te quedan uno o dos trucos en la manga. Tienes la capacidad de 
proteger las salidas del túnel del tiempo, colocando campos de energía en 
las cuatro salidas abiertas del sistema. Si intentas crear un campo de fuer- 
za en otro sitio que no sea el túnel, la energía rebotará y te destruirá. Igual- 
mente, si colocas una pantalla energética en una salida que no esté ocupa- 
da, estarás acabado. 

Los comandantes de crucero pasivos que dejan pasar demasiados ene- 
migos verán disminuir su energía y se terminará el juego. 


ABCOD FEOSG OH YKLUMNODER 
$9 +. > Bb ZKLMNOCP 
BR3aTU 
SR5ST 
A 
3 1 BORDER WM: PHPER Y INK Y 2 
> 
2 REM Y PAUL STANLEY 
5 50 SUB 9300 
7 G0 SUB 39840 
3 LET hx0 
10 50 SUB 5000 
20 60 SUB 9000 
25 PRINT AT 0,25 P.MAX h 
30 OVER 1 
35 PRINT INR 3;¡HT Y xi 
39 IF lic=1 THEN 5Ó TO 7000 
40 LET P=P-.05: FRINT DOUER QU;A 
T 4,0; "Punt. S: LET g=1l: 60 TU 
CINT (RNID+41 +1) +10 
50 FOR d=1 TO Pp: PRINT INR 7;A 
TL "es" 
A és IF ÍNKEY En 1" THEN LET xax+ 
1. dales 
70 IF INKEYg="2' THEN LET xz=x+ 
1 LET y=3Y+1 


IF Yz-1 THEN LET uezl 


83 IF x=-1 THEN LET x=31 

37 3E,X=01 THEN LET xagL 

30 PRINT INK 3/AT_4,x; "be" 

32 TE INKENE=7O THEN IF y THE 
N 30 sUB_1adu 


LET o FOR fz1 TO 4 
PRINT AT 10+2:+f,15; INK Sja 


4. 
Ferrer 

rr G06600 
6 6G(M—EJNGAL 


NTUAT 10+28f, ¿15;a%$(F),AT 


ES, 
a) 
| 
¿d 


1 


11+2%+f,15; INR S:agrfo: 

135 50 3UB e 

140 BEEP .04, 

150 PRINT AT 11+2%f, ¿15S;a$ (fi 

150 NEXT f 

1585 IF s:<>0 THEN PRINT FLASH 1; 
RAT _ 11+2%f,15; INK 5;' Eu BEEP .1 
¿230: BEEP .1.-259: BEEP ¿-26: 
BEEP .1,-25 BEEP .1.-380 PRINT 
AT 11424 ,15; INR 7," 

187 IF 5:20 THEN LET lizli-.2: P 
td AT 21,25 OVER 0; "Ener.," "¡IN 

LA 

170 50 TO 39 

200 LET o0=3: FOR fz=1 TO ¿y 

205 LET a=2 
Es PRINT AT 11-2%f,16; INK 3;a 

UF) 

215 50 51UB 50 

220 BGEEP .04,f 

230 PRINT AT 11-2:%f,16;a%8(F),AT 

19-2+f,15 INK S3¡agifi 

235 60 5U su 

240 BEEP .04,f 

250 PRINT AT 10-2:«f,16,a$1F) 
250 NEXT f 

255 IF s:<>30 THEN PRINT FLASH 1; 
AT 10-2+1,16; INK 56,"%": BEEP ,1 
¿230: BEEP .1,-28: SEEP .1,-26: 
BEER .1,-23 BEEP ,1,-30: PRINT 
AT 10-2+f,15. INRK Pr 

257 IF s=0 THEN LET lizli-.2: P 
cl AT 21,23; OVER 09; "Ener." ¡IN 

La Ñ 

270 60 TO 39 

300 LET e FOR f=1 TO 5 

305 LET =3 
A PRINF AT 10,15-2%*f, INK 4:b 

0) 

315 50 5UB 50 

30 BEEP .04,1r4t 


y) 


330 PRINT AT a 15-2*+f:b%1f) ¡AT 
10,14-2%f; INR ¿pBHLUF) 

335 50 sus 50 

348 BEEP .04,f%5 

350 PRINT AT 10,14-2*f;b41f) 
360 NEXT F 

3585 IF 35:<>0 THEN PRINTO FLASH 1, 
PT. 39 4 2er, a BL : BEEP «1 


AT 10, ,14-2%*f; INK 7?;' ; 
367 1F 3:20 THEN LE elf Pp 
RINT AT 21,23; OVER 0;"Ener."; IN 


400 LET oxs: FOR fz1 TO S 


405 LET azá4 

410 PRINT AT 11,15+2*f; INK 5;b 
sr) 

415 50 5UB 80 

420 BEEP_.04,F+65 

430 PRINT RAT 11,156+2*f;bS[(f);AT 


11,17+2%+f; INK 5;b4tf) 

435 60 SUB 5u 

440 BEEP ,0é4,F 

450 PRINT T bs 17 4+2x*Ff;bB1f) 
4560 NEXT F 


Bar; INE 6/8": 
,-30: BEER .1,-28: BEÉP ,1,-26: 


B 
BEEP .1,-23: BEEP .1,-38: PRINT 
ATO11,17+2%f; INK 7% 
457 1F 320 THEN LET Llisli-.2: P 

RINT AT 21,23; OUER 0; "Ener.”; IN 

70 60 TO_39 

00 IF x<5 THEN GO TO 11008 

¿9 1F x>9 AND x<22 THEN 60 TO 


IF NOT x>24 THEN G0 TO 200090 
IF x>29 OR y<2 OR 4>19 THEN 


2009 
a q=2 TO 193: IÓ PAPER 


ES 
o 
|] 


15: .93,-19 
EE yA5 2 To e ¿ARINT PRPER 


1427 ac>ó THEN" 5d “8 2000 
LET 35:25+20 


Fr 
260 GDO-- GUEBNOGA 


ESDIEFGDUMuDÑL: 600-101 D OMA DP Os fu 
GC6GGECNTEDTETOEAGE5ÉAGGATAGMEO AG SS 


RGFRRERPRERPROFOruebrrrerEOÓ: Pur Eererer 


l”) LET 9:00 

Ma] RETURN 

1 IF x<1 OR 4:<2 OR Y>19 THEN 
0 TO 20909 

1 E q=2 TO e PRINT PAPER 
ñ qe2;' 

1 BÉEP ,3,-10: BEER «03, -13: 
E :93,-15: BEEP .03,-18 

1 FOR q=2 TO 139: PRINT PAPER 
; E NEXT q 

1 IF +9 THEN GO TO 2800 

1 Cer” 525+ 20 

AÑ LET 3=08 

L RETURN 

2 IF u>10 THEN GO TO 1304 

3 IF 4<1l OR 4>3 THEN 00 TO 20 
220 FOR 3=11 TO 20: PRINT o 
SAT Li" “¿AT 2.1; ¿AT 3,3; 
Ma MEX 9 

1230 BEEP ,83,-10: BEEP «03, -13: 
BEEP_.05,-15: BEEP .03 

1249 FOR 3211 TO 20: PRÍNT PAPER 
VD; AT Ed, "¡AT 2,73;' RAT 3,9; 
Y "o NEXT q 

1245 1F a:>2 THEN Ga To 20009 
1250 LET s=5+20 
12509 LET 3=0 
1270 RETURN 
a IF y>20 OR y:18 THEN 50 TO 
1310 di q=11 TO 0 PRINT PAPER 
3;¡AT o ¿AT 13,7; "¿AT 20 
aci N 
1320 BEEP ea? -10: BEEP ,03,- 


j ' ,05,-10 
TO _ 20: PRINT PRPER 
“¡AT 139,q:" "¿AT 29 


4 HEN GQ TO 2000 
20 


RETURN 

PRINT AT E 

FOR r=y T zl en 
PRINT 97 Pix-l; INK S; "RER" 
PRINTOAT O x-1: "RR" 


Vi =1: ol iii Er 


GOGOL Y 
“ DDAP GE mg e Ga > 
sou rG6GcE6A66 GUAM - 
[1] 
m 
m 
u 
GS 
PR 
+ 


f=1 TO $60: PRINT OVER Y 

s INK Ff“2; INVERSE 1,'F 

E QC UEGO': BEEP .001,f 

NEXT F 

053 IF sh THEN LET h=s 

109 PRINT OVER 0:AT_ 20.0: INVER 
1; “BÚULSA CUALGDIER TÉCLA PARA 

RE 


¿AMI — AMO TU UU NU HA 


DOGSa»” 
Z16-401 

b PR 
¡DS TND 

- CMDAOI 


a] 


“VOLVER A JUGAR ..... 

VD IF INKEYS<>"" THEN RESTO 

S : OVER 1: 60 TO 10 

FSUSR "a" pro OI 

X: PURE ¿AS NEXT" 

9, SIN 01010108, SIN 19 
.BÍN 10111010,B1N 01081 


5,40,BIN 01810190,4 


- 
DUOSOPGODN 


MMARAMEZIAZD DIT DIA IMA 


eS a 
Un - 


S66- Grreaaey y ¿MEG 


SEPRSNSMEREORSOSÓ Jer - 
AGS a 
POGQ 


un 


ODO DDODPEFFTTSADGHO ODO- 


DIDIDE 


00 06 Cu ute 06 06 00 E) 06 Ss 04 00 Cl > 


Ti AN TT 


FED +0 as 


q O e e 


He A AMARA RADO 


66 DG65T 


FO -»P0 
DAVWOWxOr Gr 


GuUEaaaa- 


mec 


POSGIPROGÓ fur uUrvuessa 
16 


Pi 00 oca co ca > 0UZ- O4- 


$ 

= 

i 

N 

0: PLOT 126,93: DRA 
4: ORALN 4,8 DRA Y 
á 0: CRAU DD, DRA 
D,4: DRA 


E 


CRALI se 


SS 
DN OO 


bo 
DELECMIÍA AA Ae 


w- 
pa 
|] 


= 


4,0: DRA 2,4 
240,77: DRÁLV 384,0: DRA 
213 


r 
Whl D,-25: DRA. -34,0: DRAV 9,25: 
PLOT 36,145: DRAL 40,-52: DRA 4 
¿Y 
iaa DRA 40,52: DRAL 90,25: DRAN 

-40,-77 
9030 PLOT 125,81: DRA -40,-77 
ORAL 84,0: DRA 0,25: DRA -84,0 
: DRA 0,-25: DRA 4,25: DRA 4u 
¿52: DRAIY 4,0: DRA 40, -52: DRAW 
9,-25: DRA -40,77 
3040 PLOT 122,89: CRA -197,71: 
DRANW 3,0: DRÁW 9,-1486: DRAN -3u 
¿Y DRA 9,1456: CRA 30,0: DRAI 
77,-71: DRAN 0,-4: DRA -187,-71 
RAN 39.0: GRAL! 7d 
3050 FLOT 134,339: DRA 107,71 
RAI. -39,0: DRA 4,-145: DRA su, 
0: DRA D,145: DRAL -39,0: DRAI 
-7?,-71: CURAN 0,-4: DRA 107,-71 
CRA -30,9: DRA -7?7,71 
3500 RETLIRN 
3953800 FOR f=0 TO 5: FOR G=z8 TU F 
PRINT INK 5;/AT f,f+2; "CAMPOS DE 
ENERGIA": BEEP .03,5: NEXT G: N 
ExXT F 
9535 RETURN 
95340 PRINT AT 9,0, "Evita que las 
nMaves enemigas consigan sali 
Code su basa atra- ves de los cu 
atro pasadizos co- locando panta 
Llas enearasticas a modo de esc 
Udo en la3 salidas por las que 5 
e acerquen. Si in- tentas cerrar 
Una salida de un pasadizo no O 
CUpadoO seras des- truido Y Pperd 
era Una nave," 
33509 PRINT "Igvalmente perderas 
Una vida si coloca UN escudo en 
cualquier otro si1i0 que no se 
3 Uma salida" 
3354 PRINT $0; , 
2555 o ÁN a 5 B 
3350 PRINT AT 3, t 
con liarriba!l y 
recuerda que + z 
acia la derech t 
Y que cuando t d 
antalla por un ira 
PEL Qt. 
3570 PRINT "Para colocar una pan 
talla pulsa YD, Cuando pierdes un 
a nave o cuando se te escapa 
vuA enemigo SuUrFriras Una perdida 
de energia.5i el nivel de esta 
llega a cerose acabara 2l juego. 
"2 INVERSE 1;'"Pulsa una tecla p 
ara JUGAR. ..1... 6: PRUSE 0: CL5S 
39339 RETURN 
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Carreras 


Esta es una simulación de carreras de coches (contra reloj). Tu objetivo 
es recorrer el circuito de un cuarto de milla de largo en el menor tiempo 
posible. Tienes cuatro marchas y tienes que determinar el momento ópti- 
mo para cambiar. Si cambias demasiado pronto, las bajas revoluciones te 
harán perder un valioso tiempo, si tardas demasiado, las altas revoluciones 
probablemente quemen tu motor. El juego se hace progresivamente más 
difícil con cada partida ganada con éxito, y el momento apropiado para 
cambiar, se hace cada vez más difícil de estimar. 
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Alunizaje 


Se trata de un programa en tiempo real que te da la oportunidad de ac- 
tuar con los mismos problemas a que tiene que enfrentarse el comandante 
de una nave espacial que regresa a casa después de un largo viaje. El obje- 
to de este juego es aterrizar con tu nave en una pequeña pista en el fondo 
de la pantalla. Precisión es el nombre del juego, porque si tu velocidad 
de descenso es más de 5, tú y tu dotación os estrellaréis. Una advertencia: 
si das demasiada potencia a los motores, desaparecerás en el hiperespacio 
hasta retornar de nuevo a la pantalla estrellándote a menos que hayas sido 
capaz, a ciegas, de efectuar un descenso lento. 
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S5u00n 


e LET lisll+ TFR ILN [memij? 
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130 LET F=F-F1 

140 50 TO 175 

150 LET mi=m: 

180 LET Hl=H: LET H= (H+V1-.51 
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150 IF col:0 ANCORNAD:.S THEN LE 
Tocal=col1-1 

135 IF col:31 AND OFANC>.5 THEN L 
ET c0l=c0014+1 
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(1 

200 PRINT "Velocidad ", INT EDS 
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Anagramática 


Se trata de un simple pero embrollado juego de anagramas. Hay pocas 
cosas que enfurezcan más que empezar en blanco claves de palabras cru- 
zadas sin poder descifrar las letras. Este pequeño programa te ayudará a 
poner el cerebro a punto con unas frescas ideas de cómo descifrar el pro- 


blema. 
10 REM +**ANAGRAMATICA: + 


UN SENCILLO PROGRAMA 
PARA Aida ANAGRAMAS 
por M.NYUAL 
20 POKE 3d8s8, 255: REM asegura 
el modo "mayuscula 
30 BORDER 5: ARE INK 0: C 


3' 
R 
BR 
os 


SIGUE _LAS_IN 
PUES PONTE O 
COmoSON PROBADAS 
NA- CIONES POSIB 


LA. 
RINT "ESPERO QUE E 
E ARYU-DE is $ 


RINT "ALTERNATIVAM 
CLUIR UNA SUBRUT IN 
EN LAIMPRESORA." 
ERSE 1, "PULSA CUAL 

“PARA CÓMENZAR 


4 IF INKEYG="'"' THEN G0 TO E 
Y BORDER 4: PAPER 4: INK 0: 


Y PRINT TAB 4;* ANAGRAMAT 1 


39 PRINT ("ESCRIBE "; INVERSE 
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Carrera estelar 


Es un vuelo estelar al hiperespacio, te encuentras de repente en un nue- 
vo universo. Repentinamente tu astronave tiene que enfrentarse a una serie 
de laberintos, obstáculos y túneles, mientras tratas de localizar nuevos ho- 
rizontes. Como experto comandante eres consciente de que cualquier con- 
tacto con los numerosos meteoros, muros de roca o barreras, te llevará a 
la destucción instantánea. Tendrás que pensar y actuar rápidamente y usar 
tus misiles para abrir agujeros a través de los obstáculos. Permanece aler- 
ta, atento a los mandos... 


D E] TIJUKLMNOP 
ES E ú v 8 “¿ARKRLMNOP 


1 REM CARRERA ES 
VERSION QOR 
WALK YN VERSION SP 
PARKER 
2 RANDOMIZE : CLS : PRINT AT 
10,8; FLASH 1, "CARRERA ESTELAR": 
G0_ SUB 500u: BORDER black: GO S 
UB _ 7000: GO TO 500 
100 REM SCREENS _ PARA GRAF.DEF. 
110 LET_ ¡=C0DE SCREENS (Yy+1,x): 
IF 1 THEN RETIIRN 
120 POKE 235606,PEEK 23675: PUKE 
23607,PEERK 23676-1 
1530 LET ¡=CODE SCREENS (Y4+1,x)+ 


140 PORKE _23506,8: POKE 25607,50 
150 RETURN 
1000 REM_RUTINA PRINCIPAL 


MmhzH 
OGTA 
HAHrT 
DZID 
CIN 


1910 PORKE 2356%2,285 

1020 LET exe +8 «RND: 60 TO 1000+ 
d+r108 

1190 REM D=1 

1110 LET dfiz=zaf$i TO SIN (e) «11413 
3 +CHRS 20+CHR4 De+ebHi TO 20) +25 
ae e>15 THEN BEEP .1,8/3: LET da 
1120 60 Pe 2000 

1200 REM Dz2 

1210 LET dezafi TO SIN (€) x11+13 
)+CHRAA_ 20+CHRS 0+b$! TO 16) +a5: 
dl e>30 THEN BEEP .1,8/3: LET d= 
1220 G0 TO 2000 

1300 REM De3 : 

1310 LET diza$í TO SIN (e/+Cc0O3S 
€x.9)+4.5+12) ¿CHRS De denia arpa! 
TO 16)+a%: IF RND<.08 THEN LE 

d$i=3% 
1320 IF e>45 THEN BEEP ,1,8/3: L 
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ET dz 
1330 60 TO 2008 
1400 REM Dz=4 


1410 LET NAñ=CHR%A 20+CHR4 U+b4: 1 

E RND<,05 THEN LET n%xCHRS 20+C0H 
$ 0+i 

1420 LET dáza$t TO (SIN (21+5208 
(2+1.11)+4.5+121+n4( TO 18) +a% 
1430 IF 2>60 THEN BEEP ,1l,e/3: L 


1500 REM_DuS5 

10 IF RND>.6 THEN LET dea=CHRS 
+CHRS_0+bK4: 50 TO 1530 
20 LET deizCcHRAS 20+C0HRS V+CHIUIN 
¡RND+40+1) TO 40) 
30 IF 8>75 THEN BEEP .1,e/3: L 


d= 
V0 560 TO 2000 

REM Dx6 

ET dáiza$t TO SIN (e) *12+14 
20 E e id TO 14) +a8: 
D THE EE .1,€/3: LET d= 
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25 THEN LET di=CHRS 
: 60 TO 1850 

¡$SLINT (RND*2+1) TO 

3120 THEN BEEP ,1,e/,3: 


TO 2008 
M_ Dd 


dr 1+b%4: 60 TO 1930 
LET 


$ 
IF e>2135 THEN GO TO 30080 


REM PRINT 
IF LEN d4<32 THEN LET dázxdá% 


ASSINT AT 21,31; INK di PRPE 
AT 3,0Í INK 
AT CAGA NÍVEL E" 


e"; 

ECLADO PARA VER 
NR TECLA 

NREYS: IF m<a T 


VO: LET Fg=f3a+1 
HEN LET mam-2: 60 


48 THEN GO TO 2200 
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LET fazfg-2 

¿Q THEN LET Fg=0 


SERSTE 0696 »IOG 
, ; 


44 O 0 
HOY O0mnNM MN 
a e 


Ga 
HDGR ha MCTAHDOWOrRT DS 


666 LUISANA AAA NL OA AA gSaS 
06 0060098 


OIE OE RO O 
a 


0 


Lz 


10 WISIN REI OS PRRDO-PRrRe?JH=HrRrRMe 24D 


Eeo- 
Er: 
hn D 
2 
z= 
AA DOTA 
A a 
ÓMI D-- 
2DADM: 3. 


HTAHARHGAAHOME 
NM TANSMNMAXM 


32 
ES 
E 
Ú 
DA 
1 
+1 


rufU TM 
fu 


RrerereTreem-= 
Sem 


A AR DUNZ A 
G665S6O EE E 


fou uu 


229 


226 L 


150 50 TO 23900 

¿00 REM TECLA APRETADA 

E LET m=m+1: IF m>3 THEN LET 
2a20 IF k=53 THEN LET xax-m: IF 
(1 THEN LET x=1 

2309 IF k:=256 THEN LET x=x+*m: IF 
330 THEN LET x=30 

240 IF k=54 THEN LET yY=y+m: 1F 


250 IF k=55 THEN LET y=y-=m: IF 


MUA EUWD ZHAO mu me MX yx u=> ufo Tu 


¿1 THEN LET 0uxl 
300 REM DIBUJA Y VERIFICA 
DISPARO 
310 IF f9g>9 THEN LET fgz 
315 GO 5UB 100: IF ¡>144 HEN 6 
TO 4009 
320 PRINT AT fy-1,fx, PAPER 3; 
NR 9% "¡AT FU, Fx ERPER 3; 1 
KR 9%" "¡AT y,x, PAP 3, INR 39; 
$: LET FX=x LET Fyu=y 
330 IF f<1 TMEN 60 TO 19000 
340 IF f=2 THEN 60 TO 2355 
350 LET f=2 
355 BEEP .Bl,d 
360 LET r=x+38+3: LET sz=(21-Yy)1:*83 
: PLOT BRIGHT 1; INK red;r,s: DR 
AU BRIGHT 1. INK_ red; OVER 1,08,- 
50: PAUSE S: PLOT BRIGHT Q,; NR 
redir,s: DRA BRIGHT 0; INK red, 
_DUER 1:;0,-50 
2370 LET t=(1 -41/8; FOR vzy+1 TO 
Y+?: IF rado WW,tic»" " THEN 
PRINT AT v,t;í PAPER 98;" ": BEEP 
.25,-10 
2380 NEXT v: LET f=0: 60 TO 1090 
3000 REM LO CONSEGLISTE 
3010 INK fed: PAPER yellow: BORD 
ER ble: CLS 
320 FOR k=0 TO 43: BEEP ,01,k 
BEEP ,01,48-k:; NEXT _k 
3030 FOR k28 7: BEEFP ,YWl,k: P 
RINT AT k+5,1; INK S-k; PAPER k+ 
1; "BIEN HECHO ! LO HAS CONSEGUID 
O": BEEP ,01,20-k: NEXT k 
3040 60 TO 407u 
4090 REM CHOQUE DE LA NAVE 
4005 PRINT AT Fy-1,fx;'" " 
49010 FOR k=0 TO 7: BEEP ,0z,-1: 
PRINT AT Y,x:íx$H(k+1i: BEEP ,02,1 
: NEXT Kk 
4229 INK black: PAFER yellouv: CL 
35 : BORDER blark 
4050 PRINT AT 5,8; FLASH 1; "DEST 
RUICO!!" 
4940 FRINT AT 3,7; "Has llegado h 
asta” 
id PRINT AT 190,14; INT. (ex10!./,1 
4060 FRINT AT 12,10: era 8; 
OVER 1;"*";¡ OVER O," 
4070 PRINT AT 14,6; “OTRA PARTIDA 
T (sén]J" 


4230 LET k$=INREYK: IF kKk8="5'" TH 

EN 0 TO 80 palta 

4090 IF kK%<>"n" THEN GO TO 4088 

4100 60 TO 9999 

56000 REM INICIALIZA 

5010 PAPER 7: CLS : FOR aza TO 2 

1: PRINT : NEXT a 

6020 REM POSITION x e Y o DE LA 

NAVE 

60825 LET xX=18: LET fxz=xi LET Y=1 

0: LET fy=y 

6050 REM NUM. CE MISILES 

6uid LET Fg=3 

5050 REM IMPRIME NAVE 

5054 FOR k=0 TO 48: BEEP ,Ql,k: 

EF 101,49S-k: NEXT xk 

S LET s%$4=CHRS 144 

OD PRINT AT Y,x;isó6 

0 REM VARIABLES 

0 LET F=0: LET mz0: LET d=1: 
: LET az: LET b=0: LET 


NE 
150+2HR 


FRODrRw0:F0J On 
m0 


¡ON DON + 
AR TO OS 


HTA IA 


m 


30 LET b3=" 


40 LET cá=" Cpu "+p 
ás Cp eb+" 


pg" 


GO TO 10Yu 

REM INSTRUCCIONES 
PAPER uellow: CELS PR 
Yi INR ved; INVERSE 1," 


INK ei PRINT AT 1, 
. ve ""EL VIA 
5 Jescubier 


40 0 MOMODw DD Car O: Tio gi 00 
++ +. AdArAde PI G66M6G6Gam 


pr" 


Gr6uo 
GOD 


JDA SAO 
GT. SG0 - 


Ju 
momo 
c/A- 


25D o 


n 
dd 


E 
DL 


El 


¿ UVER Y; 
0 Y tu deb 


+ 
E- 
[u] 
tiene 135 a 
"5 
ei 
de un largo 


La] e =s 


e E 


egar 
INT 


- 310 


-- Do Did as 
Dv» 
e 


bh -J 0 
L. 0> 
DF” DO D- 
— IM DY DD 22D0< 
53- 
TWAG4wWC >bú 
4 


Ad MAGO + E y 
VO-OPGAYNDEAaA OREOJTND EM 


?JTJOrCR Mau mo M-. 


T6S Gua Gu6úaúNTGw 
DO 


M0 Jl JO je 
A 


221 


— 


ra estel!l!”" 


-Jro 


ha 
Y30 PRINT AT 21,0; INVERSE 1," 
PULSA UNA TECLA E 
de IF INKEYSKA<>"" THEN Ga TO 70 
8 
da IF INKEYSK="" THEN 0 TO 7083 
7053 CL5 
7920 PRINT AT 2,2; "TECLAS CE ECON 
TROL 2” 
7995 PRINT AT 3,0; >= ad 
"0" 8= derecha" ” b ES 
Subir (irenariv o" C 
ASER" 
7100 PRINT AT 21,0,' "Pulsa cua lqu 
ier tecla para gon 
E IF INKEYS:< THEN GO TO 71 
1 
¿A IF INREYr$="'" THEN 0 TO 711 
7329 RETURN 
3000 REM iio Ei 
310 ERTA 86,102,126,125,500, 
580,24,24 
8820 DATA 6",255,170,251,179,25 
5,170,255,170 
3030 DATA 2",24,36,102,153,153, 
192,36,24 
3040 CATA 'd”",129,55,356,24,24,35 
¿56,129 
3050 DATA "e" ,55,102,1256,1268,80, 
59,93,9 
30569 DATA f”",06,102,126,126,50, 
159,0,73 
3su?70 DATA "9 ",56,102,126,1206,50, 
0,0,123 
ES DATA 'h",55,102,126,9,161,0 
A) 
pe DATA 1,123,186,0,4,54,0,4, 
3100 FOR a=1 TO 9: READ añ: FOR 
b=4 TO 7: RERD cc: FPORE LISR ag+b, 
Cc: NEXT b: NEXT a 
3200 LET blue=1: LET redez:;: LET 
magenta=3: LET green=4: LET cyan 
eS: LET yellowz5: LET white=?: L 
ET blackz=8 
383923 RETURN 
39222 BORDER 7: INK 0: PAPER 7: C 
LS 


Ruleta rusa 


Los seis agujeros del revólver apuntan hacia tí. Hay una bala en cual- 
quier lugar del cilindro. Haz girar el cilindro las veces que quieras y enton- 


ces aprieta el gatillo... si te atreves. 


10 REM + FR LBULETA RUSA 
1983 MICHAEL BEUWS 

20 BORDER 0: INK 7: PAPER 

30 LET Fal: LET 35020: LET HSau 
100 CLS : PRINT INK 7; PAPER 2; 
LA RULETÁ RUSA";¡TAB 0: 

110 CIROLE 126,119,32 

120 CIRCLE 146,131,65 

138 CIRCLE 146,107,6 

140 CIRCLE 126,95,8 

150 CIRCLE 196,107,6 

160 CIRCLE 196,131.6 

170 CIRCLE 126,143,8 

139 CIRCLE 126,119,14 

135 CIRCLE 126,119,13 

197 CIRCLE 126,119,12 
200 PRINT AT E BED 12,1 

- “¿Br 13,15; "E 14,15: "8 

5 a 


21 ¿in 
220 PRINT PAPER 1; INK 7;AT 1 


05 CADA VEZ QUE LA PIST 
E LUEGO VUELVE A INTENT 


¿q ENUERSE 15" 
5, "MAX. PUNT. 
23556: 1F Ae255 
0 

1 


5 2 

DU 

. sa 

PARA _ HACER GIRAR EL REO 
OL 

AR 


T AT O6,16;" "¡AT 7,185; 
2,20;" Ñ «sar 


IF A<>65 THEN 60 TO 480 
Y PLOT OUER 1,145,131: LET Fx 


¿3 IF A«>85 
6,107: LET Fu 
5 IF A<>65 
58,95: LET Fa3 
56: IF A(«>ES 
8,107: LET Fx 
3 IF R:<>6S 


229 


B “M 2> y 
4. o... Q 20 HAEDO oQ 
Lt] EZ > mwuís ul 2204) 
hh 2 E LT -- uW >0 tw 2 E tu 
Ww > ul Sa-- UU XX 207 0 O -E- Z MD 
ME 3 DO == -- Mu H-u CA A A 
E D- PI - " A SS 
.- Mo N: FNFE 0 VoAD E A 
$ H 0 DH: WZ ES E I De 
an + ro o-- au ZHOQD 4 EFRND GQ 
Ada AN FEONOa wa y» - A: A 2 
00 -4 OZAAAT > OQ wW -— -—- QU 0 
DAN DA OH-  -T Er Q TRA A 
90 Q4>- XwWrtTIT PJ-- uy uy O 
+00 10 Z0 10 175 y w Z uWupn Du 
A 109 10 0 IC +] 
AzA AA TZIpP- 0430 TIAAD 2] 
- E > Hu--Z9 A--+ MM -. ruwoauyo 0 
OQAAWOSAS TAM BO NU o. 5 29D O4- 
O WOW No XL - Om: > NOBZNZO .-- 
IAANIIAWVOW TOS Ton + UNIHTANX + -- 
OWs ON 10 +4 30-nu - VO - -u - M0 
O IO 3DOv+NrT-- FAD00u ONE RHEAu ou 
FFO FEST + Z 4-0 -fdT Z04Zzav0o Qu 
n FP ULT HEESO tu RA AH Wu 
oTrluoJrow. —QUTaA hl MN ObuUO0AANSL. aa 
er molan ais E e e onJa Aa $ JJ 
5 : + E. E 


ZRAWZIDOSS --— 9 0 DIMAS IMISDVADAO 
WU FWD PDOIAXVOOONONAS + MODA AA NO 
LO -OLO- OFIUAR ESOS FORAL: 0 OA 
EJIDO E 0 -4we ro: 


Espadachíin 


Elige el momento de clavar tu espada en las temibles fauces de un horri- 
ble monstruo. No siendo domador, estas bestias incontenibles te permiti- 
rán demostrar tu habilidad con la espada. Es bien sencillo. Sólo tienes que 
sobrevivir y obtener tantos puntos como sea posible antes de que algún 
ser horrendo acabe contigo. Tal vez el gato vampiro te alcance en la yugu- 
lar. 

¿Quién sabe? ¡Rápido!... estocada... mandoble... fallo... rápido, atrás a 
la izquierda... fallo de nuevo... ¡Raargh! 


1 BORDER 4: INS 1: PAPER 4 
2 POKE 23685 
10 REM O ASASAiN 
PARA EL CBM 64 
ADAPTADO AL ZX SPECTRU 
M 16/48k POR ANDY GREEN 
25 LET MZx20 
30 DIM ES (4,64): LET Efi1)="NO 
ESTAS HERIDO Y TE SIENTÉS CON G 
ANAS DE MATAR” 
31 LET Egiz)a" ESTAS LIGERAMENT 
E HERIDO. EN VALOR “ 
32 LET ESF) E" MER RECIBIDO. _MUL 
TIPLES GOLPES. TEN CUIDADO. 
33 LET Efi4)="ESTA ES TU ÚLTIM 
A OPORTUNIDAD. BUENA SUERTE... 


1890 DIM VID) 
110 FOR JYul TO Y: READ Vid): NE 


120 DATA 3,4,3,4,2,5,2,2,4 
180 LET UKmO: LEÍ Pkul: LET Uka 


200 DIM U$io 


510. FOR Kal +0 9: READ UBIK): ON 
220 DATA “GANGRENE GOAT", "NORTH 
-SER BOIL", UAMPIRE CATU 

230 DATA "POLITICAL VORM”, "MAD 
METER:-MAID", "SCHOOL SPINACH" 

240 DATA ¿BANORUFF TED BEAR", "RA 


MPANT BANKER", "PICKLED ALBATROSS 
500 DIM DSIA, 3,4): DIM MA(9,4,3 
$10 FOR Jal TO 4: FOR Jml TO 3: 


00 DATA * 91," D *,* 1)* 
5802 DATA “ 01"" 9 ES 

804 DATA " 0..." 0%," E" 

506 DATA "900," 0.0," 1" 

550 FOR Ka1 TÓ 2: FOR Jal TO 4 


3 
35580 READ MBIK,J, 1) 


e q E E w 
= E nn XA X bi = mi 
z E E z 11.4 - M ul 
E II = a 
- e ml o =D> “O 
- oO: JJ wah . 
2121 MO Do - Ma a 
Era 2212117 DO DO: E ANEP > 
MAZA A OQ a X uwzZX Y 
Me Exe ==: 3212 bj Tb) 
z. ds - Z ZOZ u 
2 : NE * RADA. a CE! H3 E 
. a Lo E MM - SE T- A 
Ll 2000 > o: : 20 9 - D MN 
MACAO O_-= YN ó 013 A 
AS IAE 4 O Nn ¡4 el 5 a) 
e AA 1111000 e ¡yu 0 a 
= 9 Speer: Gano Ds H 800 AWO 
TE E EE Tr 0N- Fr a 
O DD _ HERA SA cid DD “S EE 
-- OF AA 21721 o AA TM: + 030 
A ID AZ AZ ES D R --H 
* JOJ1+* -F-An * 
-PLOTdad aa ad aAdadadada al IIdadaa Ida diddadara vr ZN 
XErrrrrrerrrreireret te EerrbretrererrcerererrE Y X HEX YE 
IT TA AAA NAAA AL TATIANA AA IITAAdCaATdA dh JOOO KX-O u 
Z0000406460004000000 446 BDaAdadaDOaaADCaADaAcaDaoxX D)OO01L Au a 
> 
SONITONOS MA IAN ADAN DOS DO 
VDANAINNNAU EAN DO OASIS AIDA BOBOZO DEN 
FR. FODODONDODDADAAAOAOA DARRAR Par 


PS 
5 AFHANMDO JN 


RINT AT Xx,0 
IF Mz 


R_* 


DAD +1: 
REM * BRTALLA 


10. B 


4000 60 3UB 2950: 


2808 FOR X> 


MONSTRUO + 
4002 INVERSE 1: PRINT AT 9,0;" 


4093 PRINT 

4004 PRINT " 

40058 PRINT " ES EL "¡UBIMZ);" ! 
908 PRINT "NIVEL DE DIF. PARA 


4 
MATAR) 

A "¿AT 14,0;s “",UiMz) 
4097 PRINT ¡ESCUK) 
40808 INVERSE Y 
4010 LET M7m4: LET_ D?7u2. LET_ MBu 
INT (RND+8+201: LET DS=15: LET M 
8x4: LET Daz: LET MOQxMB: LET D9 


40158 PRINT AT 0,0;"TOTAL PTS,x= 


VU2Yu LET ASWINKEY 

4025 IF Ajs"S5" THEN LET D8=D8-1: 
LET D7=1: IF D3<4 THEN LET_DGuma4 
4030 IF A$x"3" THEN LET D8xD8+1: 
LET D7=2: 1F D03>27 THEN LET 08zx 


27 

4035 1F Aga"8" THEN_LET D7mD7+1: 
IF 073 THEN LET D?7x34: LET 0820 

8+1: 1F 08>27 THEN LET D8mz27 

4938 15 Hgx"s" AND 0722 THEN LET 

4037 PRINT AT 6,D00.1; “Ar, 

7,D9-1; ¿b9u 

4038 PoR xao TOD ERIN AT B+x, 

ODO ad). NEXT 

2359 LET'DOmD8: CET D6ND7 

4240 IF 0784 THEN 30 TO 40980 

49509 40 TO 4885 

40959 FOR X20 10 2: PRINT AT S+X, 

MOMO (MZ, MB,X +1): NEXT X 

4265 FOR Zaé TO 1 

4053 LET Z1NCU0DE (SCREENS (7,140 

8+Z)1: 1F Z1¿>32 AND _Z1<>43 AND 

213,45 THEN _GO_TO 4998 

4970 PRINT_AT 7,2+D8;" 

4272 NEXT Z 

4282 LET D7m2 

4085 LET M7aM7+1: 1 M728 THEN L 

ET M7x1 

4088 IF ORND>.35 THEN LET MS=M8-1 

4097 PRINT AT S/M9-1 ¡AT 

7,M9- ¡ATOB,M9-1;" 


4038 FOR Xx0 TO 2: FRINT AT_6+X, 
MB¡MBIMZ, MB, ,X +11: NEXT xXx: 1F M8B< 
DS+2 THEN GO TO 4108 

Mio LET MYzM3: LET MBaM?: GO TO 


20 
4090 PRINT INVERSE 1;AT 19,0; "BI 
EN HECHO! HAS MATADO AL "“U$ (MZ) 


234 


4091 LET PSÑSINT (Y IMZ)408): LET 

UKRUK +1: LET UKmWK=1: IF UK<1 TH 

EN LET UKw1 

4092 PRINT AT_0,0; "PUNTOS POR MA 

598= "¡PS: LET PKEPK+P5: GO SUB 

40393 60 SUB 2800 

4095 RETURN 

4120 LET UK=WK+ 

LOS TF URIS THEN PRINT AT 8,0; 
INTENTALO DE NUEVO. ..": 60 SUB 2 
780. 60 s5UB 2300 $0'TO 4001 
4103 CL5 

4105 PRINT '''': FOR lm1 TO 3: P 

RINT "AYls is 

4105 POKE 23592 

4137 BÓRDER 1: PT Jal TO 50: NE 

XT Y: NEXT I 

3110 PRINT ""ARARAAARARGH! 1110 

4120 PRINT “"OTRO HEROE MAS MUER 

DE EL POLVO" 

4125 PRINT "HAS MATADO ' M 

dad "PUNTUANDO oi bunr 

US." 

4130 PRINT “*'"PULSA 'S” PARA JUDA 

R, "Ni PARA TERMINAR," 

4132 17 INKEYS <>" THEN G0 TO 41 
4133 13 A a 5'' AND INKEYK<> 
INP THEN 4133 

4134 IF INKEYS="Y" THEN RUN 

4235 3TOP 


El ahorcado 


En este sofisticado juego, el ordenador te invita a adivinar palabras so- 
bre una serie de temas, que incluyen animales, paisajes del mundo, com- 
positores y artistas, elementos químicos, nombres de pila y verbos en ge- 
neral. 

Las palabras son elegidas por el ordenador y almacenadas en A$ y tú 
puedes modificar el programa incluyendo tus propias palabras y concep- 
tos o combinar todos los conceptos existentes, de modo que la palabra se- 
leccionada puede ser tomada aleatoriamente de entre cualquiera de ellos. 
Ten en cuenta que algunos de los conceptos esián divididos en dos distin- 
tos grupos de palabras de diferente longitud y que se usan rutinas de nú- 
meros aleatorios en el programa para determinar de qué grupo es elegida 
la palabra. 


1 RANDOMIZE : BORDER 7: FAFER 
72 INK O: CLS 
2 REM BB FAUL STANLEY 
60 SUB 7000 
FOFE 23658, 10 
10 60 TO 1000 
100 IF RND*.S THEN GO TO 125 
110 LET Aé$="FALOMAJAGUARGORILAS 
ALMONVIBORAARANYAGATITOCIERVOGAC 
ELAJIRAFADELF INTRUCHAANCHOAGUSAN 
OCONEJOL TEBREJABAL IJABATOAVISFAR 
AJAROBESUGOGAZAFOMANDRILAGUIL ABU 
ITRE" 
120 LET I=(INT (RNDxXZ3)+1)Xx6-5: 
LET B$=A4$(1 TO I+5): RETURN 
259 LET Aé="BURROFOLLOFOCASMART 
AERI ZOFANDAGALGORATONEDALATAFIRO 
EKAFITUCANCERRACABRACARFAHYENAFUL 
FOGALLOGARZAPERROZORROTIGRERARBO 
OVEJAABEJACERDOTOROSYACASOSTRAGÁ 
MBAFITON" 
130 LET I=(INT (ENDX31)+1)*x3-4: 
LET EsS=A$(1 TO 1+4): RETURN 
150 1F RND*.53 THEN 60 TO 173 
160 LET A$="ALBANIAAUSTRIABELGI 
CAJAMAICAROL 1V 1 AURUGUAYHUNGRIARU 
MANIABAHRAINNIGERIASENEGALARGEL 1 
AFRANCIAFOLONTATURQUIACAMBEOYAIRL 
ANDANORUEGACAMERUNETIOFIAANDORRA 


235 


236 


170 LET I=(1NT (RNDXZ1)+1)*Xx7-6: 
LET B$=A$(1 TO 1+6): RETURN 

175 LET A$="TURETAUGANDASUECTAM 
EJ ICOFUWAITISRAELGRECIAZAMBIACHI 
FRECANADABRASILFANAMATA IWANAZORE 
SANGOLAEGIFTOL IBRANOITALITABEL ICEB 
ORNEO" 

1835 LET I=C(1INT (RNDAZ20)+1)Xx6-3: 
LET B$=4$(1 TO 1+5): RETURN 

200 LET A$="FRUCELLROSSINIBELL 1 
NIBERLTIOZRORODINFUCCINIDERUSSYST 
RAUSSBRITTENHOLBEINMILLAISDAUMIE 
RCEZANNEGAUGUINMATISSEFICASSO" 
210 LET I=(I1MNT (RNDx16)+1)*x7-6: 
LET Es$=A$(1 TO 1+6): RETURN 

2590 IF RAND:.S THEN GO TO 275 
260 LET As="0SMIOPLATAXENONRADO 
NHEL IOSODIOCESIOFLATACORBRE IND10G 
ALTIOLITIOBROMODARGONRADIOTORIOFLO 
MOFLUORRBARIOTTRIOCERIOCROMORENTO 
RODIOCES IOCLOROFLUOR" 

2653 LET 1=(1NT  (RNID*xZ27)+1)Xx3-4: 
LET ES=A$(1 TO 145): RETURN 

273 LET As$="BISMUTORERILIOTITAN 
IOPOTASTOLANTANOVANADIOSILICIORU 
TENTOCORALTORUBIDIOACTINIOTANTAL 
ORUTEN IOFOSFOROOX IGENOSELENIOCRI 
FTONNOVEL IO" 

280 LET I=C(INT (RNDx18)+1)x7-6: 
LET Bs$=A$(1 TO I+6)2 RETURN 

ZOO LET Aé$="JAIMEDAVIDFEDROSIMO 
NMARTAMARIAFEL I XROMEOSARAHSONIAB 
RUNOMAITEFILARELENAEL 1ASANGELTOM 
ASFARLOOSCARMAUROFAULATIRSOJESUS 
RUBEEMNLUCIOROMANMED INEFRENRAMONCE 
SARMARCOJONASCELSO" 

320 LET I=(INT (RNDX33)+1)*X3-4: 
LET RBR$=A$(1 TO 144): RETURN 

3590 1F RND+.S THEN 0 TO 2375 
360 LET As="COGERTIRARMATARFRE 1 
RL IGARFONERMIRARHACERESTARCOMERY 
IVIRMORIRDEJARVOLARSUREIRBAJARTOS 
ERANDARTOMARTEMERTRAERPED IRHABER 


LIMARLIJARFICARTIMAREEBERTASARTA 
RAR" 
370 LET I=(INT (RIDAZO)+1)Xx3-4: 
LET BE$=A$(1 TO 1+4): RETURN 
273 LET As$="GUITARLISTARLLORARE 
ORRERTROTARPOSEERSENTIRMENTIRERE 
BARBEUSCARSALTARF ICHARGOLEARROMFE 
RYWOLCARF INTARCURRARCORTARSERRARE 
DITARVIAJAR" 
390 LET I=(«INT (RNDkX21)+1)*x06-5: 
LET ES=A$(I TO 1+5)2 RETURN 
1000 FRINT AT 0,9 FAPFER 33 TINE 
Z¡"HANGMA NN" 
1005 FRINT— INE 1**"Gue tema pre 
fieres 2?" 
1010 FRINT — INK 4*7*"1,...- ANIMAL 
ES"* INE 3*"2.....CIUDADES DEL M 
UNDO"” INE 4* "Zo... «. COMPOSITORES 
Y ARTISTAS" 
1020 FRINT INE 37 "4,.,...ELEMENT 
as GQUIMICOS"* INE 47 "3... . . NOMBR 
ES"? INE 3" "6.....VEREOS EN GENE 
RAL" 
1050 FRINT ?* INE 2* "Fulsa la tec 
la numerica corres- pondiente al 
tema que elijas." 
10060 LET i$=INEEYS$: 1F CODE 1$:4 
9 OR CODE 1%$:54 THEN 60 TO 1060 
1070 60 SUB SO+SOXVAL i$ 
1080 LET C$=BE$: CLS 
1090 PRINT.  FAFER 33 INE 7¡AT O, 
I5¡"HANGMAN" 
1100 LET S=0: LET C=02: LET 1=LEN 
b$: LET Y=13: LET X=15 
1105 PRINT AT 11,15; INK 2;"Fall 
adas:" 
1110 FOR $=1 TO 1l: FRINT AT 3,13 
+4XZ2p INE 47"_": NEXT + 
11720 FRINT AT 7,15;"Dime una let 
ray" 
1130 LET I$=IMNEEY$: 1F 1%="" THE 
N GO TO 1130 
1140 IF CODE 1$:<65 OR CODE 1%$:90 
THEN 60 TO 1130 


2000 LET Si=S3z FOR F=1 TO L 
2010 IF I$=B$(F)> THEN LET B%(F) 
="X": GO TO 2100 
2020 NEXT F: IF S=S1 THEN BEEP 
.4,-15: BEEF .4,-25: 60 SUE 5000 
+10XC: LET C=C+1 
2030 1F S=S1 THEN FRINT INE 4; 
AT Y,Xyl$: LET X=X+23 IF X=23 TH 
EN LET X=153 LET Y=Y+2 
2040 GO TO 1120 
2100 FRINT INE 2¡AT = 
2110 BEEP .3,30: LET 
=L THEN 60 TO 3000 
2115 NEXT F 
2130 GO TO 1120 
3000 PRINT AT 20,0; "BIEN HECHO! 
ADIVINASTE ",C$3" EN "¡C0+55;" INT 
ENTOS" 
3010 FOR F=1 TO 400: NEXT F:z CLS 
¿ 60 TO 1000 
5000 FRINT AT 17,15 INE 55 * INN 
IO”: RETURN 
5010 FOR F=5 TO 1ó: FRINT — INE 3 
¡AT F,23"W'": NEXT F: RETURN 
5020 PRINT AT 4,2; INK 43" 
"2 RETURN 
5SO3O FOR F=0 TO Si: INE 2: FLOT 2 
4,112+F: DRAW 23-F, 23-Fi1 NEXT F: 
INE 0: RETURN 
5040 PRINT INE 1;48T 5,93" "1 RE 
TURN 
5050 INE 2: CIRCLE 73,118,9: FLO 
T 70,120: DRAW 1,0: DRAW 0,1: DR 
AW -1,0: FLOT 76,120: DRÁAW 1,0: 
DRAW 0,1: DRAW -1,0 
5052 FLOT 73,118: DRAW 3,-3:1 DRA 
W -2,0: DRAW -1,1 
5056 FLOT 69,113: DRAW 10,0,2:2 1 
NE 0: RETURN 
5060 FOR F=72 TO 75: FLOT F,104: 
DRAW 0,4: NEXT F 
5062 FRINT INE 23387 9,95 "MN "; 
INE SAT 10,77" MMM"; INE 3¿AT 1 
1,9: "MM "j INE S;¡AT 12,83" A 


ETURN 

5070 PLOT 83,104: DRAW 10,10: DK 
AW 1,0: DRAW -10,-10: FOR F=1 TO 
Fi CIRCLE 97,116,F: NEXT F: RET 
URN 

5080 PLOT 64,104: DRÁAW -10,10: D 
RAW -1,0: DRAW 10,-10: FOR F=1 T 
DZ3: CIRCLE S5Si1,116,F: NEXT F: RE 
TURN 

5090 INE S: FOR F=1 TO 4: FLOT 6 
74+F,7%: DRAW -20,-302 NEXT F 
5092 INE 02 FRINT AT 16,53" 6": 
RETURN 

5100 INK S: FOR F=1 TO 4: FLOT 7 

94+F,79: DRAW 20,-30: NEXT F 

S102 INE Oz FRINT AT 16,123" ES 

3110 FRINT AT 20,0; "MALA SUERTE! 
TE COLGAFON. LA RESFUESTA ER 

A "¡Bs 

5120 GO TO 3010 

7000 FOR L=5000 TO 5090 STEP 10: 
GO SUE Li: NEXT L 

7050 INE S: FOR F=1 TO 4: FLOT 7 
9+F,79:3 DRAW 20.302 NEXT F 

7060 INE Os FRINT AT 16,12" ie 
7080 FOR F=1 TO 3: FOR I=1 TO 11 
¿ BEEF .02,l:2 NEXT Il: LET 1=USR 
3280: NEXT F 

38000 FRINT INE 73" Ml MS E ll 

mu 


TO O STEF —1: FOR 1 
IN ER 1; 


"e BEEF .01,5: BEEF .COla 
10: NEXT Il: NEXT F 
9000 FRINT AT 5,163 INE 3;"8 Fau 
1 Stanley" 
9500 FAUSE 250: CLS : RETURN 


Mu Fo E E A 
A A EGO MB E A 
DU E A E DO A 
AA O AA A 
A O DANA AS 
F 
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Raices 


Estás a punto de ver cómo tu infalible micro va a cometer un error in- 


creiblemente simple que notaría hasta un niño de 4 años. 


En esta sección del programa, donde se te pide que introduzcas tus pro- 
pios números, hemos incluido una función ABS en la línea 670 para ayu- 
dar al ordenador a hacerlo. Los ordenadores son felices con la aritmética 
binaria, pero también se atreven con la hexadécimal.Pero si los humanos 
insistimos en que se comuniquen con nosotros en el sistema decimal, so- 
mos nosotros quienes tenemos la culpa, si aparentemente el ordenador lo 


interpreta erróneamente. 


¡E 


25 BORDER 3: INE. 


zZO 
U 
5] 
PS 
rm 
E 
157] 
pu 
O 
1 
ps) 
uu 


? TX 
5 PRINT "ROOTS 1 
OMAEL BEWS " 
INT INVERSE 1;"ESTE PROGR 
CULA RAIZES TANTO POR 
EMR_ INTERNO DE LA _ROM_COM 
L 3ISTEMA DE A-PROXIMACIO 
RATIVA NEUTONy RAPHSON,'"', 


INT_INK 7; PRPER e FLASH 
NDDO UN “5” NO ES UN '5' 


MADUZOM 


HIHCO 


ZA MOA GUS TE 
DMOD O 3 


ZOD CD bat Mo Bl 
Jn 1D de 
vom 
DIU 
UDI 


“RESULTADO 
CULO EN 
MOSTRARLO 


E] ¡"RPESAR DE 
E QUE USAR C 
RA RE-ALMENTE VE 
DE “BIT'" ENTR 
A Ms iS IG 
E] 
[0] 
A 


ZHI_ DADO 
¿CODOHD_ HC 
Gb DF OoOCce- 
! 


TUMH 


PODEMOS"; FLA 


E _ 1; "ENSENART 
BRE COMO TU 
EN EL INTE 


DE RECONOZER EL NUME-RO QUE EST 


A BUSCANDO 

160 INPUT INR > PAPER 2; "PULSA 

«ENTER> 

150 ECS : PAINT O" RAIZES 

41953 MICHAEL BEWS " 

175 PRINT INVERSE 1; "CUALQUIER 
RAIZ PUEDE SER CALCU- LADA POR E 
L_ SISTEMA DE APROXIMA-CION REITE 
RATIUA USANDO LA _FOR-= MULA: 

130 PRINT INUERSE 1," "¡TAB Ó;" 

=] Elf + G%(R- de, 
RAG FrBs LS '",TRB 


a; 
185 PLOT 586,123: DRAW INVERSE 1 
15,9: PLOT 72,128: DRAW INVUERSE 
187'PRINT INVERS 


DUMO e- 
Hr xx Obre- 

DrÚ0UruGODoDD 0OTHDOZ 
3 UDIMWOZMO 
DET - m 
“JD A z 
u 
z 
c 
z 
m 
xD 
o 
o 
D 


S DPRZ0a DM D 


«PULSA <ENT 
NTOURRAIZES 


m Dr au<ua 
PRARDERMDOO 
LUIS 
rail 
61 —10-. 
pi] 

z 
P 

+ 

6” -= 
+ 7 
a 

1 

Mo 

” 


J TA 


PL S5 1153: DRAW INVERSE 1 
¿PLOT 72,162: DRA INUERSE 


PRINT INR 7, PAPER 2." EJEM 
PHRA ENCONTRAR 2416 e 

10 PRINT INVERSE 1;" "¡TAB Qu" 
(UN NUMERO RAZONABLE, YA YU 

8x4 COMO YA S5ABES!)' TAB 0; 

20 LET Ga3: LET Nzx1B5 


[0] 
Us 
CNEA 


DU un 


“o 
AT e A 1 


urdrcesa- 


lu) 35 

ET Aa(N/G+0)/2: RETURN 
RINT id 5, INK 0;'"0w", 
4 A TAB 0 


DZ 


I 

6 

T GxH: 80 sUuB 230 

INT e 0, PAPER 5,'G6x";0 
Ax",A)TAB 0, 

F AzúG THEN 6Ó TO 280 


245 
PRINT _INUVERSE 1;" DE 
QUE Y158 a "¡A¡TAB 0," "¡TAB 


PRINT INK 7; PRPER 2," TU 


z us 
WOCuUNY -UWDOW DON 


0--00JGR UR MP DUNN 


a 
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MICRO DICE QUE 2188 "¡A " 

230 PRINT PLASH 1;AT 21,0; "ESTU 
DIA ESTE EJEMP. CON ATENCIÓN" 
300 INPUT PAPER 6; INK 1;"Y DES 
PUES PULSA <ENTER> ";X 

310 PRINT INVERSE 1;AT 5,0;: FO 
R X=1 TO 15: PRINT INVERSÉ 1," ” 
¡TAB 0;: NEXT OX: PRINT TAB 31;" 
320 PRINT INK 7; PAPER 2;AT 4,0 
¿%. EJEMP. PARA ENCONTRAR 225 
390 PRINT INVERSE 15%"; ; 
6G=3 OTRA VEZ (12828 'comb SABES) 


qa9n LET 6x3: LET Na25: 60 SUB 2 


380 OBRINT. PAPER 5 5 INK 0;"Gu",6G 
"350 PRINT! INVERSE. 1; "AHORA HACE 
MOS G=";A' OLVEMOS A INTENTAR 
DA FORMULA" 
370 LET GA: GO SUB 230 
389 PRINT INK 0; ¿PAPER 5; e 
390 1F Ab SFREN do TO 409 
395 $0 TO 
400 PRINT EEES po" DE MODO 


F25 
dense 1,TAB_14; FLA 


9, 


E 
> 
r 

--D 
7] 
A 


DIUDBDAO3]u 
Du 


Ta 


A 


TZO RH HZ UOOOWwWHUHT DMMOO*: 


PARA REP 
250 CEN 
na +En 50 


E 

[=) 
E 
P 
1 


m 


E 
5 
QUE G NO" IGUALA 
$ 


a UDIH 


E 
F 
P 
Al 
> 
P 
R 


A 


00 -AAGADARPRAPMPAPRD 
XDC_ ZOWMDIZOZ 


2 M7 
"Dc 


K 
En 


E 
M 
N 
0 
R 
R 
E 


+ 


IN 
L ME] 

TL. SP INTRODUCE NUM 
T INVERSE 1,'">0 Y «1uua 


' THEN GO TO _S5YS5 
TO LEN NG: IF NKLX) 
13"9" THEN 50 TO S5u5 


AL NS: 1F N<.01 OR N 

> 1000380 N 
549 PRINT INVERSE 1,AT 1,18;N 
0. NUM. 


D 
E LA RAIZ DESEACA" : 
580 INFUT INVERSE 1;'RARIZ (>»1 Y 
<100) "¡RS 
570 IF Rha”" THEN 60 TO 558 
Pic FOR X2a1 TU LEN RS: IF RAIX) 
'D" OR R54iX)>5'38'" THEN 60 TO 560 
“s90 NEXT x 


6006 G-GIGAILD 
HI 


1Z Z8C ZH 


Pp 
CHA 
JT A 


m 


ga 
ZP _ TRTDZOD-DID 


o 
ZU- 


pa 


GUOrraeOSr-ODuAr UG 


Ea MG 


IF R:2 OR R>9 
": RAIZ NUMERO 


590 LET RaVAL _ R 
9 THEN GO TO 66m 


US 
1 
5 
6 
2 


AH 
JORDANA 


-D6 
G 


SPG 606 SIENTE: 


ET Xa2X+1: LET 0:A: 60 TO 65 
NT A 1¡AT 3,0; "LA 
Z DE ES "¿TAB 


) 


a] 


= o 
UY _ DVD FSrhurr 


MD” 
MÓZMD DODIDD 


Pp 
[w] 
+ 
Ea 


D; 
NT RAT 13,0;" 
LA e s9mRUTAD 


NT, ÍNYERSE 1; 


pu 


EBR USAND 
00 "¡TAB 


21,0; IN 
<ENTER> 
THEN ST 


O Po 


c 


HAHCHOTD - 
TD H>MHDDH 
H 


DA 
S OO UJDJDJES 
ar 
D DHUH+] xcc 
o 
Pp 
p 
6 


- HG GO0dm PDGCmO- 


$ 


RU 
RA 
R 
AT 
BAR 
"0 
¿XS 
gs 


+= HOFGrF o 
Onm6 
P- 


Pro- 


seda ¿32 ¿32 
32,16 ,8,8 
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Toros y vacas 


Eligiendo un número de cuatro digitos, el ordenador irá respondiendo 
a lo que adivines (o deduzcas), puntuando con un toro cuando aciertes 
en un dígito y éste esté en su posición, y con una vaca cuando en la combi- 
nación que introduzcas haya un dígito correcto, pero fuera de su sitio. Ten 
en cuenta que en la combinación puede haber un dígito repetido. 

Puedes elegir el número de intentos que quieres que te sean permitidos, 
haciéndolo más difícil para ti mismo cuanta más práctica vayas adquiriendo. 


RBEDEFGHIJELMNOQOEC 
ha] E CDEFGHICJIKELMNORPCR 
UN] 3TYT L 
RSTI 
1 REM Bulls and Cows * Robart |] 
Erakine "CODIGO SECRETO 
2 BORDER 7: FAPER 7%: INK 9: € 
Ls 
10 G0 5UB yue 
20 60 353UB 30uu 
26 FOR x=1 TO 4 
100 RANDOMIZE : LET R=RND: INPU 
T "Cuantas oportunidades Quieres 
A E IF t:1 OR t>1089 THEN 50 T 
D 100 
1180 50 305 1000 
120 CLS3 : PRINT 'Ya he elegido 
UN NUMENTD... ": PRUSE 100 
139 60 5UB 2000 
135 FOR qz1 TO t 
140 INPIJT "DIME UN NUMERO (4 di 
941) "5 LINE q%: IF LEN q%<>4 TH 
ÉN PRINT 821, FLASH 1:“solo admit 
04 digitos !1!!': PAUSE 68: Ga T 
O 140 
145 FOR fzel TO 4: IF CODE BEA 
«48 OR CODE A THEN PRINT 
41; FLASH 1; "Introduce solo nume 
ros !1!1!": PAUSE 560: 60 TO 140 N 
EXT F 
150 60 5UB 290080 
1609 50 5UB 3000 
170 IF black<4 THEN NEXT 
130 PAUSE 100: 60 5UB 400 
190 FRINT AT 21,0, "PULSA UNR_TE 
CLA PARA RE-COMENZAR": PAUSE un 
609 TG 100 
¿00 LET black=0: LET vhite=8 
205 CIM al41: DIM hR1(4) 
210 FOR x31 TO 4 
215 LET alx)3=VAL (9%(1x)) 
217 NEXT x 
220 FOR xz1 TO 4 
230 IF alxi=nix) THEN LET black 
=black+1 


Tu 
py 
[a] 


IF alxiznix) THEN LET hix)= 


pue 
TY 


Z 


BORDER QU: PAPER 4: INK 7: CT 
ESTO “INTENTOS TOROS 


=0 THEN 60 TO 3078 


ú 
Li 
1 TO black 

TAB (f1; INK 0,'m'; 
Fi1 

F 


A 
¿=0 THEN 560 TO 3158 
E 


TO white 
A 
2 
l 


RETURN 

IF black<4d THEN GU TU 4030 
CcL3 : PRINT AT 4,4M;' "Has ace 
0. 'Mi Numero era ... ñ 
50 TO 4840 

CL3S : PRINT Me parece que 
as tenido de- masiado exito 
"Ma MUMENO ETA ... h 


066 -SEFEIHIHPRODSIADADGIODAAO CMUMIDESGAE Y AIN 
GUY ES TGD MA CIVERA GRUDICGUDIRIOFO 00 
257002000666 EGSA RAGGTE ARABIA MAGaES 


IBP PPOYOUdO DIDIER MUERA 


| 

4049 FOR x=1 TO 4 
40950 PRINT nix); 
4060 NEXT x 
4870 PRINT : PRINT : PRINT “" y 
el tuyo es ', 
4080 FOR x=1 TO 4 
4039 PRINWNT atxo; 

31800 NEXT x 
4110 PRINT 
4120 RETURN 
3u00 PRINT AT 1,38; "CODIGO SECRET 
0D. 1... ": PRIN 
3010 PRINT "En a5te juego debes 
de acertar un numero secreto de 

4 cifras en una cantidad dete 
rminada de intentos. Cuando tie 
nes Un nume=r0o correcto de la co 
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ua UU 4 60M 
AB Ln +?» BD 
a qe 2] 
OTDOMA- mM 
"yu. £ Y 
BOW: > - 
e Ss aMT 
LAO O mo DO 
LLECYUTI 40 
o» > —> 
uRco* e 
“30 a-w 
A, E 
AS 
> BT DA- 
“De Ss 
An mm Am 
Dan- Nu 
FA 08 ciar 
A 
€ ls 
A] -. Ox 


“4 > aa 
Le DADO-D 


D 
Dn - 
Ll 0 
DN 
re Ds) 
111 
0 
a 0 
02) D- 
J) 12-54] 
" 0 
Xx e 
0:10 
ul Du 
a y 
tu .- 
9)s] 
0 
c Qin 
u - .n- 
ZU CXxXQnz 
aa ma 
A FPPomud4rTaz 
Po+TxIXb 
Wu: WONTOou 
EXA 
08 90908 -9 
NDIANUNOAAN 


E LLODIO ON 
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Invasores 


¿Cómo podríamos escribir un libro como éste sin incluir el clasico jue- 
go de los invasores? Bueno, pués aquí lo tenéis completo con pantallas pro- 
tectoras y la nave nodriza y una pantalla llena de temibles invasores. 


IRSRESSTARBANNSE 
IN] 3T0U 
DRAT 


DIM I1(50) 
G0 TO 458 
REM **RUTINA PRINCIPAL **x* 
GO SUB 70: GO 3UB 228: 60 T 


REM RUTINA INVASORES 

FOR XzU TOP: IF 1(X+4L*P)0eU 
N NEXT X: LET FxzU: FOR xz=U 
9: IF I(X)1=U THEN NEXT x: GO 


[ra Jvo] 
IF FxzU THEN LET FXzxu0: GO T 
IF 


L+A>21 THEN G0 TO _800 
133 PRINT AT O L+A,0;: 1F Za-U TH 
EN PRINT " 

149 FOR XxU to P: LET BgxalS: IF 
T(P+L+X)zxU THEN LET Ba" e 
150 PRINT B8; 

159 NEXT X 

180 LET LaL+U: IF L>Q THEN LET 
Lre0: LET Zre-Z: LET CaCeU: IF CU 
THEN LET Cxa0: PRINT AT A,u;" 


CET ARAU Sy 
A (L=0 AND A>0) THEN PRINT 


"Co ¡AT 0, INT (27*RND); INK 


2:04 
200 RETURN 
210 REM ¿*LECTURA DEL TECLADO+* 


[an] 


+4 
o La 
JUEHNVO TORAJNPUWV E 


n6 2¿MEDEGUGE E 


ca 
re 


220 LET XS=INKEYS 
230 1F x4z"" THEN RETU 

328 15 “ÉdDE Xs=12 ÓN Xg="7") T 
HEN_G0_5UB 338: RETURN 

245 BEER .03,-40 

250 1F X4<>"5" THEN GD TO 255 
2558 IF_XP«<U THEN RETURN 

U: PRINT AT 28,xP 


2860 LET_XPz=xXP-= 
pi RETURN 

5 IF X$<>"8'" THEN GO TO 2834 

Y IF xXP>28 THEN RETURN 

S LET_xP=xP+U: PRINT AT 20,XP 

¿: RETURN 

Y IF CODE xX$:<>3 THEN 60 TO 2% 


285 PRINT_AT 20,XP:. “os LET 
PO IÓ THEN LET"XPR0 
338 PRINT AT 28,XP; e RETURN 
290 IF CODE x 93 at Ñ RETURN 
292 PRINT AT 20, LET 
XP=xXP+U: IF ae PEHEN LEG xE=2 


PRINT AT_20,XP;TG;: RETURN 
EM ARRADISPARO COMETE 4408 
ET OXN=(XP-U+W14T: LET XSmx 
(XN/Qt; TF (XS<>T AND XS 

THEN RETURN 
OA<1 THEN PRINT_AT 21,14 
'PONTE A CUBIERTO!"; F 


an 


DGSWUHZMN 
TM 
De 


AT a, xé ; 
COR X21 103, PRINT 


cr Eg 


U+ INT" ((xP+1)1/41)231 
389 RETURN 


159 STOP 
460 BORDER 1: PAPER 1: INK 7: C 
Ls : PRINT INJUADERS Ol 
382 M.BELS": PRINT AT 8,8; OJER 
A 
DU 

Taba PRINT AT 11,331 N IC IA 
LIZ DO" 

eES FOR XDO TO 7: READ AB: POK 
E USR "A"+X,A: POKE USR "k"+Xx,B: 
NEXT XxX: LET 9 O E 0 

479 FOR X20 TÓ 7: RERD A,B: POK 
E USAR "E +X, A: POKE USR "$"+x,8 
NEXT Xx: LEÍ Tgxm" e SE ó 
430 FOR Xa0 TÓ 7: READ A,B: POK 
E USR "e'+X,R: POKE USR "»"+X,B: 
NEXT X: FOR x=0 TO 7: RERD A/B: 
POKE SR "S"+X,A: POKE USR "b"+ 
x,B: NEXT_X: FOR X=B TO 7: READ 
A! POKE_ USAR "A"+xX,A: NEXT xXx: LE 
Ggz=" ds 

490 a X=Q TO 7: READ A, 

OE USA OA: PORE OSA 
8: POKE USA "M"+x,C: NEXT X: LEf 
PC E 

495 FOR X=0 TO 5: POKE USR "1"+ 


X, NEXT X: PORKE USR "1"+7,0: 
Ml és Ass y 

497 da. x=8 TO 7: READ A: POKE 
USA "N"+x,A: NEXTÓX: LET Mm"s" 
500 LET RRz80 

510 LET H320: LET TSx0 

550 SRINT AT 1,8, ¿USA TU LANZAD 
ERADE MISILES “76 CHRS e; PARA 

ECIMINAR A COS INVASOR 5" pS 


$; 
550 PRINT " Y PARA An La e 8; 
OVER 1,."""; OVER 0:"AR LA NRUE" 
"NODRIZA Ara QUE LLEGA DESPU 


PRINT_ ""NU PUEDES DISPARAR 
S DE- TRAS DE UNA BARRERA 


"USH_S Y 8 PARA MOVE 

DCHA. RESPEC 

SHIFT HL MIS 

MAS RAPIDO). 

E SOLO TI 
* 


CA ARRAAAR ARA 


5 

"CADA INWASOR 
SERAN _ 290 PUNTOS Y 
NEVENODRIZRA, PER 
e Pp Ñ 


(m m- 
Ú 
d+ 
DH 


TUIHCO1. 
iS 


UN 
(0) 


US DS A dl 0 Z O 01 Z VOMAOI 2 H010n 


MIO Y DR A Mie 


* HDDOR rn 


DAUNTIDO-AGZVUOCGUME UxUT DOMD-:3 
+ Z 


Hor HOM 
Z Z 
FAX] TDOD 41 
> . 


006 * MUZIA 
r 


Tm PDD + 
NI HFHTI 
AGWNT GD O _ TMGx*GUuDO-— 
C CD DO60 
La) 
D ZG 


LET : 
E 21: LET UxXS: LET =10: 
: LET xXP=0: LET Zzx1 
RS: PAPER 5: CL3 : FO 
R xX=0 TO 56: PRINT AT X,2;: FOR Y 
=1 T10_7: PRINT INK 1; 1$.: NEXT Y 


750 PRINT AT 19,0;: FOR Xzx1 TU 
5: PRINT INK 3; 05: NEXT Xx: PRIN 
TO OINK 3,"EE' 

760 PRINT ar 20,014; 

770 PRINT AT 21,0; UNT BRA 
T 21,15; “RESERVA MI "¡RR 

730 50 TO 59 

7939 REM 2*x*FIN 

309 PRINT AT á 
?¿ "TU PLANETA HA 
Da S S Ú 


“oy HAS GASTADO 
ES": G0 TO 910 
200 PRINT AT S 
VÁASORES"; AT 7, 


"MISILES o 
FLASH 1);' 


COMMON DOTMODODNDDMOTZOD 1 


Du HAD 


al 


9% 
$ 


ZOGOL 
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290 


ACI "jo FLASH 
2910 IF 350>A3 THEN LET HSa5C 

315 LET TS3T8+50 

320 PRINT AT 11,2; PAPER 8; INK 
2; "PUNTUACION ANTÉRIOR: "40; 
AT 12,2; "PUNTUACION MAX.: "¡HSA 
YT 13,8: *BUNT, TOTAL: "TO AT 1 
5,2; FLASH 1;"PULSA UNA TECLA PA 
RÁ JUGAR" ¡AT 156,2, “OTRA PARTIDA 

coo  "¡ FLASH O 

930 LET XFRINKEYA: 15 X$="" THE 

50 TO 93 

340 CLS : PRINT AT 11,10; INK 2 
¿ PAPER 5: FLASH 10 'ANTENCIÓN"; 
FLASH 0: FOR _X=5 TO 1 STEP_-1: P 
RINT AT 17,15;X;: FOR Y=1 TO 80: 
NEXT Y: NEXT X: FOR Xx1 TO 43: 
LET I(x)20: NEXT X: LET SCm0: LE 
TORR=50: LET XPxmQ: 60 TO 725 
1000 REM +44+GRAFICOS DEFINIBLES+ 
1020 OATA_50,560,140,49,115,206,5 
1,204,63,252, 111,248,193,131,192 
1949 DATA_27,224,31,248,25,88,62 
¿224,255,288, ,255,2588,85,170,42,8 
1050 DATA 0,8,0,0,7,224,31,248,2 
48,31,127,2584,9,0,0,8 

1069 DATA 0,0,63,252,240,15,191, 
253,0,0,255,255,127,254,0. 

1070 OATA 125,2585,0,195,255,129, 
225,50 

1830 DATA 255,255,255,126,0,126 
255,255,255,125,0,125,255,255,25 
5,1256,0,1258,255,255,255,9,3,0 
1039 DATA 0,32,24,124,62,24,74,0 
2009 LET XGSINREVE: 1F X4x" THE 
N G0 TO 20 
2910 PRINT done XB" O "¡: 60 TO 2 
3990, INPUT 9R/B,08, PRINT AT 18,3 
dan PIERA B¿CE. IF SCREENS 14,4 
amas THEN PAINT Ar 18,30, "4"; 
3010 60 TO 3000 


La invasión 


de los 


hongos 


Vale. Ya has tratado con lo peor que puede salir de las entrañas de una 
galaxia. Los Invasores del Espacio, los anillos de asteroides, los oscuros 


túneles del tiempo, los gatos vampiros. Lo has visto ya todo ¿no? 


¡Pués no estés tan seguro! Las cosas aún pueden empeorar, Esta vez te 
encuentras cara a cara con los negligentes, desalmados, crueles fungos... 
La invasión de los hongos. Todo está acabado para la Tierra. Los hongos 
ya cubren medio globo terráqueo y se acercan para la lucha final. Tú eres 
el comandante del único crucero de seguridaad sobreviviente y tu láser se 
está agotando. Espera hasta que veas lo blanco de su parte de abajo y haz 


que cada disparo puntúe. Si ellos dan a tus naves estás acabado. 


OUDD 
YD00 


a 
JO JAS RRPRRMi rn Peer 
-066- 
CAS 
] 
DH HO) 
Dn q 


I 


TA «e 
566 - O 

GE 
UNO+H 
DO Pu 


-S6 
A 
=0 


c 


c 
JDO DA POZO : 
8 


GS 
=0 
D+ D4+ DD 


6. 
a] 
a 


INKEY$=" 


To 1; INK 1;PAT x, 


THEN PRINT AT 


INKEYS$='"3'" THEN LET Yzyu+ 


INKEYG="8" THEN PRINT RT 


INKEYKx'"1" THEN 50 SUB 4 


3x1 THEN LET yel 
NT BRIGHT 1, NK 1¡AT x, 


(x-1,Y4!1=2 OR ATTR ( 
2 OR id (íx-1,94+2) 2 T 
BRIGHT 1; INK 


POKE 
FOKE 
POKE 


READ x: 
READ x: 
READ x: 


33 
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,24,24,24,24,2 


4 


9 -QAd -1748 -1989 -990d 
BABA AAN ADOSADO > 
OA NAS AHD NOA 4 
128 _ 1271 828 AZ A10 
ZAHBZ AHAZBD HB ZAHA - 
HSDOHADAHADOHADNO+ 
xZM9S 909-205 -0- -90 
BBB ANA AAA ADS 
A 1AA UAD TAN MT 
AE A 
 WIZAHITZ AHI ZO HTZ AMI 
HCOMSMOHSDOS DAMA 


99 9719 919 
ALBA AN AAA IDOLO 
ANOSA_ ANA _ 1809 SOSA NN 
INAAZD A AZ AA ZO AA Z ANNA Z ANN ONO AZ: 


Pi 
TO 
NEXT n 


s,q0ñ ñ=0 


LET Uxd: 


LET yl: 


E_AZEE 


YXOWwWIOI -X 
ZT OJNQaZz 
HONDWmOud tua 


AF- EA -IWdA HA 


FRA DVuUNNZ_ H 
TZ AHWWOSWXADWITANIA - es 
OAHAHOX JINXAGAAJ) 3 P-Aua 


S-5658989 BOUTIOT >LAD - 
OS ANIOEADAA 
SA AOOQUSADWADL--AAI HO 
MHATA- a 


INTENTA 
VENAS PUNTUACION” 


A 


INK S; 


INVERSE 1; 
CUALQUIER TECLA PARA JUS 
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(RND+29) 
URND+3 
INK 2;" 
RND+3w 


l] 
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3900 LET a INT 


3001 LET M=2U 
.Y 


RETURN 
LR UY; 


2105 FOR k=1 
PRINT_INK 2;" 
2110 PRUSse 
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Cuentas 


Los niños y los ordenadores sencillamente no son compatibles. Al me- 
nos por parte de los primeros. Sencillamente se pierde mucho tiempo te- 
cleando. De todas formas hay que reconocer que los micros juegan un pa- 
pel en el proceso pedagógico, y por ello no es sino un poco a disgusto co- 
mo hemos incluido una selección de programas educativos, siendo éste uno 
de ellos. Es para los muy pequeños, y ha sido diseñado para mantenerlos 
callados por un rato, mientras estás trabajando en un nuevo algoritmo, y 
así a la vez les enseñas lo básico de las cuentas. 

El programa pone una serie de problemas de suma de números del 1 
al 9. Ya sabes: contar barcos, flores, gatos, casas o cualquier otra cosa, 
y —si la respuesta es correcta— recompensa a los pequeños angelitos con 
barquitos que se mueven, gatos que sonríen, teléfonos que suenan y cosas 
por el estilo. 


ABCOCDEFGHIYRKLA 
IEA 
VDRSTOU 
d 7 
T A | 

10 REM COUNTABOUT...... H WALLY 

11 LET 15=CMRS S+CHRS B+CHRS 8 
+CHRA 59+ "AS S 

15 LET X20: 60 5UB 9008 

17 LET Zg=" 

20 PAPER 5: BORDER 5: INK U: C 
L5 : PRINT "COUNTABOUT" 

30 PRINT : PRINT "Este es un y 
Ugo de sumas para nin" ¿CHR4 3. 
OVER 1;""","0s de 2 a 5 an";CHR 
$8," *";"08."” 

340 60 5UB 1088 

50 FRINT : PRINT "PULSE CUALQU 
IER TECLA PARA ", "COMENZAR... ,, 

50 LET K=RND: 1F INKREYGS="" THÉ 
N 60 TO 50 

79 CL5 

358 PRINT AT 0,0; FLASH 1; "PULS 
A CUALQUIER TECLA,POR FAVOR " 

30 LET K=RND: IÉ INKEVS="" THE 
N GO TO 30 
108 OL5 
110 LET OmRINT ((RND+S) +1) 

128 LET K=INT ((RND+S) +1) 

130 LET =4: FOR lal TO U 
140 IF 134 OR 127 THEN LET Jmá4: 
158 60 5UB LI) 

160 PRINT OVER 1;TAB 
170 IF X=1 THEN GO Po ¿on 
108 E 
13 G0 TO 2 

dal 


204 


200 ¡50 5UB L(K+14) 

210 LET uUsJ+10: NEXT 1 y 
e IF x=1 THEN LET Xx0: GO TO 
e e AT ¿Y 0; INK 1, “CUANTO 

AR ; 

250 LET As= INKEY $: IF AR$="" THE 
N_ GO TO 25 

250 IF ¿ode A$(49 OR CODE Ag>S7 

THEN_G0 TO 258 

270 PRINT INK 1¡TAB 158,A$: FOR 
Lz1 TO du: NEXT L 
a VAL AS=0 THEN CLS : 60 T 
1 e 

290 IF VAL Af$=(0+1) OR VAL Asfzt 
9-1) THEN GO TO 330 

300 BEEP .6,.5: BEEP ,6,-2: PRI 
NT AT 0,90; FLASH_ 1; BRIGHT 1; PA 
PER 4; INK 7;"N O, CONTEST 

RCION ERRONEA !!! 
310 560 _ 3U8 5500: 60 TO 230 
320 LET X=1:; 60 TO 130 

330 IF VAL A%$=0 THEN 60 TO 300 

340 BEEF .2,.5: PRINT AT 0,0; 1 
NR 2¿"'CAST,CASII'!TE 
HASOUEDADO Musov [Us 
ROCA 
3550 60 318 5500: G0 TO 239 
350 50 3UB8 5508: PRINT. BRIGHT 1 
is FLASH 1; PAPER 0; INK 7;AT 9,0 
¿CARA CORRECTO +8." 

370 IF Q=1 THEN PRINT 9," j 
$(1 TO (LEN N$-2)1): GO TO 398 
330 PRINT Q;" "NS 
390 FOR F=1 TO 300: NEXT F: GO 
SUB 2400: 50 TO 30 
1200 REM INSTRUCCIONES 
1010 PRINT : PRINT "En este prog 
rama _ mo hace falta Usar la tecl 
a ENTER 
19030 PRINT PRINT "En cuanto el 
Nin" ¡¿CHR4 3, OVER 1,0 sepa do 
nde es-tan las teclas la 39s65", 
1950 PRINT "Usted podrasentarse 
comodamente en Un 51i- Llon y e 
Jar que la computadora ensen ¡cn 
RS 3; OVER 1,""e un poco al nin" 
¡CHAS 3," %0!! 

1100 RETURN 

2000 PRINT AT 0,0; INK 2;TAB 20 
2010 GO TO DIO) 

ii PRINT “4d aa O. RET 
2200 PRINT Cb PRINT "4": P 
RINT “At: ETURN 

2300 PRINT "3 0), 0 AX) 0), 0" 
RETURN : 

2400 PRINT " _ ",,0/]",," A 
RETURN 

eas00 PRINT “==, "y, "870 
RET 
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296 


2600 PRINT "A ",)," EA", O 
RETU 

2700 PRINT A PR CE 

RETURN 

25900 PRINT "A". HA OK 

RETURN 

2900 PRINT "A AX, NIK 
RETURN 

5000 PRINT AT 4,0;: RETURN 

5010 PRINT AT 19,0;: RETURN 

5u20 PRINT AT 156,0;: RETURN 

5500 FOR La1 TO 508: NEXT L 

5500 PRINT AT 0,9;" 

5615 PRINT " 

5625 RETURN 

5909 INK 0: LET U LET_ Ng='C 
ASAS": REM DI EN lo: LA disñ 

6901 PRINT OUER e INK , 
Z4L TO 28);" Zi ro 25:54 

“o ZÑt T | LSEzZ 

( | me 

5002 RETURN 

5100 REM CATS 

6101 1 INE, 2: LET Vgz"": LET Nfa"G 
8110 PRÍNT OVER Lo INK 2," 4 h" 
¿ZE L TO 27) ¡E TO 27" 
A SN 5) 

El PRA OLER : Nk 2" Sm. 
Z$i o dd 
5130 RETURN 

5200 REM TELEFONO 

6210 INK 3: LET Ugz="": LET Nfe"T 
CTE INE 
220 RINT ( Cr ya, ( 
a es “¡z4t TO A Mz 
gi TO 281;" de 

5230 RETURN 

5300 REM BORTS 

56310 INK 1: LET Use": LET Nhz"B 

6320 PRI Y QUER_ 13 ZG( T 
3 N J io 

0 28); pa —. ¿ZRC TÓ 5>, 
de TERRA de AEPURN 

56400 REM FLOWER 

6410 INK 4: LET Ug=U4: LET N4="F 
LORES" 

6420 PRINT OVER 1;" "¡Z4t TO 2 

31 INK 4,% | "¡230 TO_29);" | 
“ oZglL TO 29)1;" 0 “i: RETURN 

700Y REM CASA CUÚRRECTA 

7005 BEER .5,10-1 

¿918 PRINT OVER a Ss), TO 

239), "iZ TO 261," 

MZ Ae ( ¿um 
dio Pa 

7108 a y OYER to 

PTA Ml 0.231," dé ( 

2», SNS ZO TO y, dam 


EC ES 
RETURN 
0 REM TELEFO 
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fu 


Mo" Z4t T 
“iz 5t TO 27) 


20 PRINT " “EZBU TO 271; 
(CTO 271281 TO E71;: RETURN 
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Los mejores programas 
para el ZX Spectrum 


Toda una biblioteca de programas 
por un precio más bajo que el de un 
cassette. Juegos explosivos, gráficos 
dinámicos, invalorables utilidades. Es- 
ta colección lleva el lenguaje BASIC 
hasta el mejor aprovechamiento de 
sus cualidades. 

Estos 60 programas para el ZX 
Spectrum han sido escritos por cua- 
tro programadores británicos, autores 
de muchos de los juegos más vendi- 
dos del mercado. Los cuatro han apli- 
cado sus talentos para superar los cli- 
chés de la programación y explotar la 
potencialidad del ordenador. 

Un libro imprescindible para los 
amantes de los juegos de ordenador 
y para usuarios de aspiraciones más 
serias. 


